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BANDIDO DE UM BRACO SO (2) 

Numa poeirenta rua de uma cidade do velho oes- 
te, voce caminha lentamente para um duelo ao por- 
do-sol. Seu adverscirio sd tem um braco, mas e 
mais rapido no gatilho do que Billy the Kid. Viva 
as emocoes de um duelo como esse, jogando com 
um caca-niqueis 881 



MENSAGENS SECRETAS 

Agora, voce esta" num pais estranho, cercado de 
espioes de uma potencia inimiga. Masnaofiquede- 
sesperado: aprenda a criar seus pr6prios codigos 
secretos e entre para a histdria das mensagens ci- 
fradas 888 
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ARMAZENAGEM DE NUMEROS 

Expoentes. Como sao armazenados os numeros. 
Ponto flutuante e numeros negativos. A funcao 
INSTR. PEEK na memdria. Dicas para economi- 
zar espaco na memdria. Efeitos estranhos. Forma- 
tacao com PRINT USING 894 
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DEU 
0(2) 




COMPLETE SEU JOGO 



CA CA-NlQUEiS 



A ROTINA PRINCIPAL 



GIRE AS RODINHAS 



OS RESULTADOS PREMIAOOS 




Depois de completar o jogo com esta 
segunda parte, puxe a manivela 
e tente obter tres frutas kjuais no 
caca-niqueis. Esse resultado 
pagara vinte vezes a sua aposta. 

Segunda e ultima parte do nosso jo- 
go caga-niqueis, este artigo nos coloca 
em condicoes de executar todo o progra- 
ma, cujo primeiro segmento voce ja de- 
ve ter gravado. 



APERTEM OS CINTOS 



210 LET HOLD-Q 

220 LET TOTAL-TOTAL- 10: LET NU 

DGE-0: PRINT AT 13,26; INK 2;" 

230 IF HFLAG=0 THEN ' LET HOLD= 


240 FOR 1=1 TO 3: FOR J=l TO 
12 r SOUND .0 01,60 
250 IF HOLD-0 THEN PRINT AT 7 
,1G;AS(J);AT 7, .15 ; BS (J) ; AT 7, 
20[CS(J);AT 10,10;A$(J+1) ;AT 
10.15;B3(J+1) ;AT 10 , 20 }C3 (J+l) 
;AT 13,10;A$(J+2) {AT 13,15;BS( 
J+2) ; AT 13,20;C3(J+2) ! NEXT J: 

NEXT I 
270 IF HOLD-1 THEN PRINT AT 7 
,15;BS(J);AT 7 , 20 ; CS (J) :AT 10, 

15sBS(J+l) ;AT 10,20;CS(J+1) ; 
AT 13,15;BS(J+2) ;AT 13,20;C3(J 
+2) ; NEXT J: NEXT I 
280 IF HOLD-6 THEN PRINT AT 7 
,15;B3(J)[AT 10,1S;B3(J+1} :AT 
13,15;B${J+2) ■ NEXT J: NEXT I 
290 IF HOLD-2 THEN PRINT AT 7 
, lOiASCJ) J AT 7, 20; CSC J) ;AT 10, 
10;AS(J+1) ;AT 10 , 20 ; C3 (J+l) ; AT 
13,10;AS(J+2) jAT 13 , 20 j CS { J+2) 
: NEXT J: NEXT I 
300 IF HOLD-5 THEN PRINT AT 7 
,10jA$(J):AT 10,10sA${J+l) ;AT 
13,10;A3CJ+2) : NEXT Js NEXT I 
310 IF HOLD=3 THEN PRINT AT 7 
,10;ASCJ):AT 7 . 15 j BS C J) ; AT 10, 
1Q;A$(J+1) ;AT 10 . 15 : BS ( J+l) ; AT 

13, 10; A3 (J+2) ;AT 13,]5;B3(J+2 
) : NEXT J: NEXT I 
3 20 IF HOLDOl AND H0LDO4 AND 
H0LDO6 THEN LET M=INT <RND* 
12) : IF M-0 THEN LET H-l 
330 IF H0LDO2 AND HOLDOS AND 
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H0LDO4 THEN LET K-TNT (RND* 
12) : IF K-0 THEN LET K-l 
340 IF H0LDO3 AND H0LDO5 AND 
H0LDO6 THEN LET L=INT (RND* 
12) : IF L-0 THEN LET L-l 
350 LET HOLD-0 

360 PRINT AT 7 , 10 ; AS IM» i AT 7. 
15;BSIK);AT 7 , 20 :CS (L) ; AT 10, 
10;AS<M+1) ;AT 10. 13 ; B3 (K+l) j AT 
10,20;C${L+1) sAT 13,10;A${M+2) 
:AT 13,15;B$(K+2) ;AT 13,20;CS( 
L+2) 

A linha 210 coioca zero na variavel 
que segura uma ou mais rodas, que po- 
dem ser escolhidas atraves do teclado, 
A rotina verifica qual e o conteudo des- 
sa variavel e faz com que se movimen- 
tern as rodas que estao livres. 

Depois de girar as rodas, a rotina re- 
coloca zero em HOLD na linha 350 — 
os botdes que seguram as rodas sao apa- 
gados — e, em seguida, a linha 360 
incumbe-se de desenha-las em sua posi- 
cao final, paradas. 



VERIFIQUE RESULTAD0 



370 GOSUB 510 

510 LET TS-AS{M)+BS(K)+CS(L) 

520 LET L$-A$(M+1)+BS{K+1}+CS< 

L+l) 

530 LET L3-AS(M+2)+BS{K+2)+CSC 

L+2) 

540 GOSUB 660 

550 RETURN 

680 LET TEMP-TOTAL 

690 IF WS< TO 4) -MS {5 TO 8) 

AND M$( TO 4) -M$ (9 TO ) THEN 

LET T0TAL-T0TAL+5Q; IF MS ( TO 

4)-C$(4) THEN LET TOTAL-TOTAL 



700 IF M$( 
TO 4) -MS (5 
-MS (9 TO ) 
AL+50 
710 IF MS{ 
TO 4) -MS (5 
-MS (9 TO ) 
AL+50 
720 IF MSt 
LET TOTAL 
8) -AS (3) 
L+10 



TO 4)-CSU) AND MS ( 
TO 8) AND MSt TO 4) 
THEN LET TOTAL-TOT 

TO 4)-C3(3) AND MS( 
TO 8) AND MS( TO 4) 
THEN LET TOTAL -TOT 

TO 4) -AS (3) THEN 
TOTAL+10: IF MS (5 TO 
THEN LET TOTAL-T0TA 




02 



+ 5000 : GOTO 640 



730 IF TOTAL>TEMP THEN FOR I- 
1 TO 6: SOUND .05,50: NEXT I 
740 LET DD-INT (TOTAL/100) : 
LET CC-TOTAL-(DD*100) : PRINT 
INK 2; PAPER 6; AT 17,0; "3 

";AT 18.0;"C "; PAPER 7; 
BRIGHT 1:AT 17,1 J* "iDDiAT 18, 

750 IF TOTAL<l THEN GOTO 760 
760 RETURN 

A linha 370 salta para a sub-rotina da 
linha 510, que coioca as tres linhas mos- 
tradas pelas rodas nas variavets alfanu- 
mericas T$, M$ e L$. A linha do meio, 
M$, e a que vale para fins de conlagcm 
de pontos. 

A sub-rotina que faz isso comeca na 
linha 680. Ela verifica se ocorreu, em al- 
gum lugar, uma linha premiada, e so- 
ma o valor do premio ao patrimonio 
acumulado pelo jogador. 



C0M0 DAR UM EMPUflRAOZINHO 



380 IF M<7 OR K"L OR L>2 THEN 
LET NUDGE-1: PRINT BRIGHT li 
PAPER 7; INK 2; AT 13, 26; "NUDGE 

■ 

390 LET HFLAG-INT (RND+.5): IF 

HFLAG-1 THEN FOR 1-1 TO 19 

STEP 5: PRINT AT 16,1; INK 6; 

BRIGHT l;"HOLD";: NEXT I 

400 IF INKElfSO"" THEN GOTO 

400 

410 LET IS-INKEYS: IF IS-*" 

THEN GOTO 410 

420 IF IS-" " THEN FOR 1-9 TO 

19 STEP 5: PRINT INK 2jAT 16, 

I ; " " : NEXT I : GOTO 210 

430 IF I3-"E" AND NUDGE-1 THEN 

GOSUB 600: LET NUDGE- : PRINT 
AT 13,26; INK 2;" " i SOUND 
.1,30: GOSUB 510: LET RN-INT ( 
RND*10): IF INT (RN/2)=RN/2 
AND HFLAGOl THEN LET NUDGE-1 
: PRINT AT 13,26; INK 7; 
BRIGHT 1; "NUDGE": GOTO 400 
440 IF IS="Q" AND NUDGE-1 THEN 

GOSUB 560: LET NUDGE-0: PRINT 
AT 13,26; INK 2;" ": SOUND 
.1,30: GOSUB 510: LET RN-INT ( 
RND*10): IF INT (RN/2J-RN/2 
AND RN<3 THEN LET NUDGE-1: 
PRINT AT 13,26; INK 7; BRIGHT 
1; "NUDGE": GOTO 400 
450 IF IS-"W" AND NUDGE-1 THEN 

GOSUB 5B0: LET NUDGE-0 : PRINT 
AT 13,26; INK 2;" ": SOUND 
.1,30: GOSUB 510 




460 IF IS-"D" AND NUDGE-1 THEN 
GOSUB 620: LET NUDGE-0: PRINT 
AT 13,26; INK 2;" ": SOUND 
.1,30: GOSUB 510: LET RN-INT ( 
RND*10) : IF INT (RN/2JORN/2 
THEN LET NUDGE-1: PRINT AT 13 
,26; INK 7; BRIGHT 1; "NUDGE": 
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610 PRINT AT 7,20;C3(L) [AT 10, 

20[CS(L+1) iAT 13,20;CS(L+2) : 

RETURN 

620 LET L-L-l: IF L<1 THEN 

LET L-L+12 

630 PRINT AT 7 , 20 ;CS <L) j AT 10, 

20;CS(L+1> ;AT 13, 20 ;C$ (L+2J : 

RETURN 

640 LET M-M-l: IF M<1 THEN 

LET M-M+12 

650 PRINT AT 7 , 10 [AS <M> ; AT 10, 

10;AS(M+1) [AT 13,10jA9CM+2) : 

RETURN 

660 LET K-K-l: IF K<1 THEN 

LET K = K+12 

670 PRINT AT 7 , 15 i BS (K) ; AT 10, 

15;BS<K+1] [AT 13 , 15 ;BS (K+2) : 

RETURN 



GOTO 4 00 

470 IF I5-"S" AND NUDGE-1 THEN 

GOSUB 660: LET NUDGE-0: PRINT 
AT 13,26; INK 2\" ": SOUND 

.1.30: GOSUB 510: LET RN-INT ( 
RND*10) : IF INT (RN/2J-RN/2 
THEN LET NUDGE=1: PRINT AT 13 
,26; INK 7 i BRIGHT 1 I "NUDGE" : 
GOTO 400 
480 IF I3-"A" AND NUDGE-1 THEN 

GOSUB 640: LET NUDGE-0: PRINT 
AT 13.26; INK 2;" ": SOUND 
,1,30: GOSUB 510: LET RN-INT t 
RND*10) : IF INT (RN/2)ORN/2 
AND RN>6 THEN LET NUDGE- 1 : 
PRINT AT 13.26; INK 7; BRIGHT 
1 ; "NUDGE" : GOTO 400 
490 IF HFLAG-1 AND I3""l" OR I 
$-"2" OR IS-"3" OR IS-"4" OR I 
3-"5" OR I$-"6" THEN LET HOLD 
-VAL IS: FOR 1-1 TO 19 STEP 5: 

PRINT AT 16.1; INK 2; " ": 

NEXT I: GOTO 220 
500 GOTO 400 

560 LET M=M+1: IF M>12 THEN 
LET M=M-12 

570 PRINT AT 7,10;AS(M) ;AT 10. 
10;A$(M+1) ;AT 13 , 10 : AS (M+2) : 
RETURN 

5B0 LET K=K+1: IF K>12 THEN 
LET K-K-12 

590 PRINT AT 7 , 15 [BS <K) ;AT 10, 
15;B$<K+1J ;AT 13 , 15 ; BS (K+2) : 
RETURN 

600 LET L-L+l: IF L>12 THEN 
LET L-L-12 




CE PERDEU TODO SEU DINHEIRO" : 

SOUND 1.-Z0 

BOO PRINT '" QUER RECOMECA 

R (S/N) 7" 

610 IF INKEY3-"" THEN GOTO 

BIO 
B20 LET IS-INKEYS: IF IS-"S* 
OR I9-"B" THEN RUN 
830 STOP 
840 CLS : PRINT AT 10. Oi" 

PARABEN3 ! VO 

CE ACABA DE GANHAR PREMIO. " : 

PRINT *" VOCE ESTA 3500, 00 MA 
IS RICO !": FOR J-l TO 3: FOR 
1-1 TO 10: SOUND .01,5*1: NEXT 

I: NEXT J 
850 GOTO 800 

A rotina da linha 760 oferece ao 
usuario a oportunidade de disputar mais 
um jogo, Ela e chamada quando o jo- 
gador fica sem dinheiro. 

A rotina que cuida do premio maxi- 
mo — trSs sinos — da as boas novas ao 
jogador e soma $500 ao sen score. Nes- 
se caso, a partida termina, pois a banca 
foi quebrada. O jogador pode, entao, 
jogar outra vez. 



A ROTINA PRINCIPAL 



350 M»100:H — 1:I--1: J— 1:P-RND{ 
16)-1:Q-RND(16)-1:R-RND{16)-1 
360 SCREEN 1: GOSUB 1000: GOSUB 2 
OOOrGOSUB 2500: IF M>0 THEN 360 
370 CLS:PRINT «101:"YOU RAN OUT 

OF MONEY" 
380 PRINT 6417," <BPACE> PARA R 
ECOMECAR" 

390 IF INKEYSO" " THEN 390 ELS 
E RUN 



A rotina que empurra as rodas e mui- 
to semelhante aquela que as segura. As 
rodas sao movimentadas para cima ou 
para baixo conforme a escolha do joga- 
dor. As teclas que empurram as rodas 
sao mostradas na tela. A cada empur- 
rao, um numero aleatorio e usado para 
determinar se o jogador poderi recor- 
rer novamente a essa funcao. 



RAPA-TUD0 



760 CLS : PRINT AT 10,0; 
FIM DE JOGO 
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A linha 350 estabelece o valor do pri- 
meiro cacife em d6Iar. Ela tambem acer- 
ta os valores iniciais das variaveis que 
indicam se alguma roda esta presa, as- 
sim como das variaveis que controlam 
a posieao das rodas. A linha 360, lac/0 
principal do programa, chama ordena- 
damente as sub-rotinas que giram as ro- 
das, desenham as frutas na tela e per- 
mitem ao jogador apostar, segurar e em- 
purrar as rodas. 

Se o jogador Hear sem dinheiro, a li- 
nha 370 terminara o jogo e oferecera ao 
usuario a oportunidade de disputar ou- 
tra partida. 



FRUTAS NA TELA 



500 ON CH+1 GOTO 540,530,560.55 
0,570,510,520 

sio put(xx,yy)-(xx+3i.yy+i5) ,b, 

PSET: RETURN 

520 PUT(XX.YY)-(XX+31.YY+15) ,C, 
PSET 'RETURN 

530 PUT(XX,YY)-{XX+31,YY+15) ,A. 
PSET: RETURN 

540 PUT(XX.YY)-(XX+31,YY+15) , BR 
, PSET: RETURN 

550 PUT(XX,YY)-(XX+31.YY+15} ,S, 
PSET: RETURN 

560 PUT(XX,YY)-(XX+31.YY+15) , PL 
, PSET: RETURN 

570 PUT(XX.YY)-(XX+31,YY+15) ,P, 
PSET: RETURN 

1000 M=M-10:FQR L-l TO RND(3)+R 
ND{3> 

1010 IF H GOSUB 1520 
1020 IF I GOSUB 1530 
1030 IF J GOSUB 1540 
1040 NEXT: IF H THEN SOUND 100,1 
1050 FOR L = l TO RND{3) +RND ( 3) 
1060 IF I GOSUB 1530 
1070 IF J GOSUB 1540 
1080 NEXT: IF I THEN SOUND 120,1 
1090 FOR L-l TO RND(3) +RND ( 3} 
1100 IF J GOSUB 1540 
1110 NEXT: IF J THEN SOUND 140,1 
1120 H— 1:1 — 1:J — l:RETURN 
1500 CLS:IF D-0 THEN RETURN ELS 
E PRINT §166,USING"CREDIT0= SSI 
||.|#" ;M/100:FOR A-10 TO D STEP 
10 :M-M+I0; PRINT 6166 , USINCCRE 
DITO= $SHt.*l";M/100 
1510 SOUND 200,1: FOR B=0 TO 400 
:NEXT B.A: RETURN 

1520 P=(P-1) AND 15:XX=48:YY=28 
:FOR G-P-l TO P+l : CH-R1 [15 AND 
G) .GOSUB 500;YY-YY+32rNEXT:RETU 
RN 

1530 Q-(Q-l) AND 15:XX"112:YY-2 
8:FOR G-Q-l TO Q+1:CH-R2(15 AND 
G):GOSUB 500: YY-YY+32 :NEXT :RET 
URN 

1540 R-(B-l) AND 15 : XX-176 : YY-2 
8: FOR G-R-l TO R+1:CH-R3U5 AND 
G) : GOSUB 500 : YY-YY+32 : NEXT:RET 
URN 

1550 C-9:IF (Rl (P) *R2 (Q) > AND{R 
2(0.)-R3(R)} THEN C-RKP) : RETURN 
1560 IF R1(P)-R2(0J AND (R1(P>- 



6 OR Rl(P)-S) THEN C-1+R1{P):RE 

TURN 

1570 IF Rl{P)-6 THEN C-8 

1580 RETURN 

As linhas 500 a 570 usam PUT para 
desenhar as frutas na tela. As linhas 
1000 a 1 120 giram as rodas, chamando 
as sub-rotinas das linhas 1520 a 1540. As 
linhas 1150 a 1 180 acusam urn resulta- 
do premiado e a linha 1 500 soma o pre- 
mio as posses do jogador. 



APOSTAR, SEGURAR, EMPURRAR 



2000 GOSUB 1550 

2010 IF C-9 OR C-0 THEN D-W(C): 

GOSUB 1500: RETURN 

2020 CLS9-C:PRINT §265 , 'apootar 

■; :PRINT6278, USING "$$#.#! ";«( 

O/lOOl 

2030 PLAY "L4T20B": PRINT €212. U 

SING"SS|-tt " ;W<C-1}/100; : PRINT 

«340,STRINGS(7.2?1-C*16) ; 
2040 PLAY-T20C: PRINT 6212 f STRI 
NGS (7,271-C*16) ; :PRINT 6340. USI 
NG"SS*.#* -!W(C+1)/100; 
2050 R$-INKEY$:IF RS<>" " AND R 
SOCHRSC13) THEN 2030 
2060 IF R$-CHR${13) THEN CLS:D- 
W(C):G0SUB 1500:RETURN 
2070 IF RND{2)=1 THEN CXS:D-W(C 
+1) :GOSUB 1500: RETURN 
2080 C=C-1:IF C-0 THEN D-200:GO 
SUB 1500: RETURN 
2090 GOTO 2 020 

2500 IF RNDC4)»1 GOSUB 3060 :GOT 
O 2550 

2510 IF RND<5)<3 THEN 2560 
2520 FOR K=l TO 2000 :NEXT : SCREE 
N 1.0 

2530 AS-1NKEY$:IF AS<>" " AND A 
SO"C" THEN 2530 
2540 IF AS-" " THEN RETURN 
2550 CLSr PRINT 6166 , USlNG'CREDI 
TO= 5S|il . #f;M/100:GOTO 2520 
2560 SCREEN 1 , : H— 1 : 1— 1 : J--1 
2570 IF H THEN PUT (38 , 122) - (91 , 
143) ,H.NOT 

2580 IF I THEN PUT (102 , 122) - (15 
5,143} ,H,NOT 

2590 IF J THEN PUT (166, 122} - (21 
9,143) ,H.N0T 

2600 RS-INKEY$:IF RS-" " THEN F 
OR K-0 TO 2:PUT(38+64*K,122)-(9 
1+64*K,143) ,H, PSET: NEXT: RETURN 
3000 IF RS<"1" OR RS>"4" THEN 2 
570 

3010 ON VAL(RS) GOTO 3020,3030, 
3040,3050 

3020 H--1:I--1 : J--1 : GOTO 2570 
3030 H=0:PUT(38,122)-(91,143> ,H 
,PSET:GOTO 2570 

3040 I-0:PUT(102,122}-(155,143) 
, H. PSET: GOTO 2570 
3050 J-0: PUT (166, 122) -(219, 143) 
,H, PSET: GOTO 25 70 
3060 SCREEN 1,0:COLOR 4,2:PUT(1 
59. 156) "(224, 170) , H.NOT : PLAY"L4 
0T10" 
3070 K=l 
3060 LINE(10+K*16,15B}-(21-t-K*16 



,169} , PRESET, BF 

3090 IF INKEYS-" " THEN 3120 

3100 K-K+1:PLAY STRS (K*2) : IF KC 

6 THEN 3080 

3110 FOR K-l TO 5:LINE(10+K*16, 

158)-{21+K*16, 169) , PSET.BF :NEXT 

:G0TO 3070 

3120 N-K: PUT (159, 156) -(224, 170) 

.H.NOT 

3130 RS-INKEYS:IF(RS<"5" OR RS> 

"9") AND R$O"0" THEN 3130 

3140 IF R$-"0" THEN RS-"10" 

3150 ON UAL(RS)-4 GOTO 3160,317 

0,3190,3190,3200,3210 

3160 P-P+2: GOSUB 1520:GOTO 3220 

3170 Q-Q+2 : GOSUB 1530: GOTO 3220 

3180 R-R+2: GOSUB 1540:GOTO 3220 

3190 GOSUB 1520:GOTO 3220 

3200 GOSUB 1530:GOTO 3220 

3210 GOSUB 1540 

3220 SOUND 40.1:GOSUB 1550: IF C 

<9 GOSUB 2010:N-0:GOTO 3250 

3230 IF N-l THEN N«0:GOTO 3250 

3240 LINE(10+N*16,158)-(21+N*16 

, 169) .PSET, BF:N-N-l:GOTO 3130 

3250 FOR K-l TO 5:LINE(10+K*16, 

158) - (21+K*16„ 169} , PSET , BF :NEXT 

: RETURN 

As linhas 2010 a 2050 permiiem que 
o jogador faca a sua aposta. Ele pode 
entao melhorar o premio que recebeu 
anteriormente (ou, na pior das hipote- 
ses, perder parte dele). 

A rotina que segura as rodas 
encontra-se enire as linhas 2530 e 3050, 
sendo chamada da linha 2510. Os indi- 
cadores que definem a liberdade das ro- 
das sao modificados de acordo com as 
teclas apertadas pelo jogador. 

As linhas 3060 a 3250 permitem que 
o jogador empurre uma das rodas, 
movendo-a uma posieao para cima ou 
para baixo, O mimero de movimentos 
oferecidos e selecionado ao acaso na li- 
nha 2500. A rotina deteeta as teclas se- 
lecionadas, movendo as rodas de acor- 
do com cada uma delas. 



A R0TIMA PRINCIPAL 



1160 FOR 1=1 TO 2000:NEXT 
1200 R=-RND(-TtME) :M=100 : H=-l : T = 
-1:J=-1:P-INT(RND(1)*15) :Q=INT( 
RND(1)*15) :R=INT(RND(1)*15) 
1210 LOCATE 0,22: PR INT STRINGS ( 
30,32} : :GOSUB 1400:GOSUB 2000 ! G 
OSUB 2500: IF M>0 AND M<5000 THE 
N 121.0 

1215 IF M>=50QO THEN CLS : LOCATE 
0.11: PRINT "RAPA TUDO E ESTOUR 
A A BANCA" :GOTO 12 30 
1220 LOCATE 0,22: PRINT "SEU DIN 
HEIRO ACABOU " ; 

1230 LOCATE 0,23: PRINT "APERTE 
>ESPACO P/ REPETIH": 
1240 IF INKEYSO" " THEN 1240 E 
LSE RUN 



A linha 1200 estabelece o valor de urn 
dblar para o primeiro cacife e acerta os 
valores iniciais das variaveis que indicam 
se alguma das rodas esta presa, assim 
como das variaveis que controlam a po- 
sicao das rodas. A linha 1210 e o laco 
principal do programa. E!a chama or- 
denadamente as sub-rotinas que giram 
as rodas, desenham as frutas na tela e 
permitem ao jogador apostar, segurar e 
empurrar as rodas. O gerador de nume- 
ras randomicos tambern £ acertado nes- 
sa linha. 

Se o jogador ficar sem dmheiro, a li- 
nha 1220 concluira o jogo e dara ao 
usuario a oportunidade de jogar nova- 
mente. Quando existirem trds sinos na 
linha correspondente ao meio das rodas, 
havera o estorno da banca e o jogo tam- 
bern tera chegado ao fim, agora com a 
vitdria do jogador. 



FRUTAS NA TELA 



1300 VPOKE BASE(5)+YY,C1:VP0KE 
BASE (5) +YY+1 ■ CZ : RETURN 
1400 M-M-10:GOSUB 4000:FOR L-l 
TO INT[RNDU)*3+1)*INT(RNDU)*3 

+1) 

1405 IF H THEN GOSUB 1520 

1410 IF I THEN GOSUB 1530 

1415 IF J THEN GOSUB 1540 

14 20 NEXT 

1425 FOR L-l TO INTtRND t 13 *3+l ) 

*INT(RNDU)*3+1> 

14 30 IF I THEN GOSUB 1530 

14 35 TF J THEN GOSUB .1.540 

1440 NEXT 

1450 FOB L-l TO INTtRND (1) *3+l) 

*INT<RNDU)*3+1> 

1455 IF J THEN GOSUB 1540 

1460 NEXT 

1470 FOB L-8 TO 10: SOUND L,0:NE 

XT:H— 1:1— 1:J— 1 

1460 RETURN 

1500 IF D-0 THEN RETURN ELSE M- 

H+D 

1510 RETURN 

1520 P»(P-l)AND15:YY«235:FOR Q" 

P-l TO P+l:Cl-A(15ANDG.l} :C2-AC 

15ANDG.2) :G0SUB 1300 : YY-YY+96:N 

EXT: RETURN 

1530 Q-(Q-l)AND15:YY-239:FOR G- 

Q-l TO Q>1:C1-BU5ANDG.1> :C2-B( 

15ANDG,2) : GOSUB 1 300 : YY«YY+96:N 

EXT: RETURN 

1540 R-(R-l)AND15:YY-243:FOR G- 

R-l TO R+1:C1-C(15ANDG,1) :C2-C< 

15ANDG.2) rGOSUB 1300 : YY-YY+96 :N 

EXT: RETURN 

1550 D-0 

1551 IF ACP.D-136 THEN D-10 

1552 IF AfP,l)-B(Q.l) AND A(P.l 
J-136 THEN D-20: RETURN 

1553 IF NOT(A<P.l)-B{Q.l} AND B 
(Q.l>-C(R.l)) THEN RETURN 

1554 A-A(P.l) 

1556 IF A-120 THEN D-50 

1557 IF A-184 THEN D=50 



1558 IF A-216 THEN D-50 

1559 IF A-152 THEN D-100 

1560 IF A-168 THEN D-100 

1561 IF A-200 THEN H-M+5000:GOT 
1215 

15 70 RETURN 

A linha 1300 usa o comando VPO- 
KE para desenhar as frutas na tela. As 
linhas que vao de 1400 a 1480 giram as 
rodas chamando as sub-rotinas das li- 
nhas 1520 a 1540. 

As linhas 1550 a 1570, por sua vez, 
verificam se houve urn resultado premia- 
do e a linha 1500, finalmente, soma o 
premio as posses do jogador. 



EMPURRAR E SEGURAR AS RODAS 



2000 GOSUB 1550:GOSUB 1500:GOSU 

B 25 50: RETURN 

2500 IF INT(RNDC1)*4+1)-1 THEN 

GOSUB 3060: GOSUB 2550:GQTQ 2530 

2510 IF INT(RND(1)*5+1>0 THEN 

2560 

2530 AS-INKEY9:IF ASO" " THEN 

2530 

2540 RETURN 

2550 M3-STBSIM) : LOCATE 2,15:PRI 

NT RIGHT$<M$, 2) j : LOCATE 2,.l,4:PR 

INT " ";:IF M>-100THEN LOCATE 

2, 14: PRINT LEFT$ {MS . 2) ; : RETURN 

2555 RETURN 

2560 H— 1:1 — 1: J— 1: LOCATE 4,22 

: PRINT "PODE SEGURAR AS RODAS" 

2600 RS-INKEY$:IF (R$<"1" OR RS 

>"6") AND R3<>* " THEN 2560 

3000 IF RS-" " THEN RETURN 

3010 ON VAL(RS) GOTO 3020,3025, 

3030.3035.3040,3045 

3020 H-0:GOTO 3050 

3025 I-0:GOTO 3050 

3030 J-0:GOTO 3050 

3035 H-0:I-0:GOTO 3050 

3040 J-0:I-0:GOTO 3050 

3045 J-0:H-0 

3050 RETURN 

3060 LOCATE 3, 22: PRINT "PODE EM 

PURRAR AS RODAS" 

3070 N-INT(RNDU)*5+1) 

3080 RS-INKEYS:IF RS-"" THEN 30 

80 

3100 IF RS- M Q" THEN 3160 

3110 IF R$-"W* THEN 3170 

3120 IF RS-"E" THEN 3180 

3130 TF R3-"A" THEN 3190 

3140 IF R$-"S" THEN 3200 

3150 IF R3-"D" THEN 3210 

3155 GOTO 3080 

3160 P-P+2:GOSUB 1520:GOTO 3220 

3170 G.-Q+2: GOSUB 1530:GOTO 32 20 

3180 R-R+2:GOSUB 1540:GOTO 3220 

3190 GOSUB 1520:GOT0 3220 

3200 GOSUB 1S30:GOTO 3220 

3210 GOSUB 1540 

3220 GOSUB 1550: IF D>0 THEN GOS 

UB 2000:N-Q:GOTO 3250 

3230 IF N-l THEN N-OrGOTO 3250 

3240 N-N-l:GOTO 3080 

3250 LOCATE 0,22: PRINT STRINGS { 

30,32) ; : RETURN 



A rotina que segura as rodas esta en- 
tre as linhas 2560 e 3050, sendo chama- 
da a partir da linha 2510, Os indicado- 
res que revelam se as rodas estao livres 
sao modificados conforme as teclas 
apertadas pelo jogador. 

As linhas que vao de 3060 a 3250 per- 
mitem que o jogador empurre uma das 
rodas, movendo-a uma posicao para ci- 
ma ou para baixo. O numero de empur- 
rocs oferecidos e selecionado ao acaso 
na linha 3070. A rotina detecta as teclas 
selecionadas, movendo as rodas de acor- 
do com cada uma delas. 



EFEIT0S S0N0R0S 



A rotina situada na linha 4000 acer- 
ta os valores dos registros do chip so- 
noro do MSX para simular o ruido de 
rodas em movimento. 

4000 RESTORE 4030 : FOR L-4 TO 13 

4010 READ A: SOUND L,A 

40 20 NEXT 

40 30 DATA 0,9.15 

4040 DATA 4 2,0,12,16,100,5,12 

4050 RETUHN 



ai eii 



300 GOSUB 700: GOSUB 4000: GOS 
UB 310; GOSUB 7B0 : GOTO 1000 
1000 M - 1:H - 1:1 

(1) * 

16) :R 



- 1 1 J - 1 : P 
16) :Q - INT 

- INT ( RND 



- INT ( RND 

( RND (1) * 

(1) * 16) 
1,010 POKE - 16299,0: POKE - 
16304.0: GOSUB 1300: GOSUB 2000 
: GOSUB 2500: IF M > THEN 101 


1020 TEXT : HOME : VTAB 20: PR 
INT "3EU DINHEIRO ACABOU" 
1030 PRINT "APEBTE A BARRA DE 
ESPACO": PRINT "PARA JOGAR NOVA 
MENTE" 
1040 GET A3: IF AS - " " THEN 

RUN 
1050 GOTO 1040 

1200 HCOLOR- 0: DRAW 15 AT XX, 
YY: DRAW 15 AT XX + B.YY: DRAW 
15 AT XX, YY + 4: DRAW 15 AT XX 
+ 8 , YY + 4 

1205 ON CH + 1 GOTO 1240.1230, 
1260,1250,1270,1210,1220 



1210 HCOLOR- 3 
Y: DRAW B AT XX 
1220 HCOLOR- 3 
Y: DRAW 6 AT XX 
1230 HCOLOR- 7 



DRAW 7 AT XX ,Y 
+ 7,YY: RETURN 

DRAW 5 AT XX, Y 
+ 7.YY: RETURN 

DRAW 13 AT XX , 



YY: DRAW 14 AT XX + 7 , YY : RETUR 
N 

1240 HCOLOR- 3: DRAW 3 AT XX . Y 
Y: DRAW 4 AT XX + 8 , YY : RETURN 
1250 HCOLOR- 3: DRAW 1 AT XX + 
l.YY: DRAW 2 AT XX + 8,YY: RET 
URN 

1260 HCOLOR- 7: DRAW 11 AT XX, 
YY: DRAW 12 AT XX + 7.YY: RETUR 
N 



33 PROGRAMACAODEJOGOS 33 



1270 HCOLOH- 3: DRAW 9 AT XX + 

l.YY: DRAW 10 AT XX + 8 , YY : RE 
TURN 

1300 W - M - .1: FOR L ■ 1 TO 
INT (3 * RND (1) + 1) + INT { 
3 * RND (1) + 1) 
1310 IF H THEN GOSUB 1520 :X - 

PEEK ( - 16336) 
1320 IF I THEN GOSUB 1530 :X - 

PEEK { - 16336) 
1330 IF J THEN GOSUB 1540 :X - 

PEEK { - 16336) 
1340 NEXT : IF H THEN CALL - 

198 
1350 FOB L - 1 TO INT (3 * R 
ND (1) + 1) + INT (3 * RND {1 
) + 1) 
1360 IF I THEN GOSUB 1530 :X - 

PEEK ( - 16336) 
1370 IF J THEN GOSUB 1S40:X - 

PEEK ( - 16336) 
1380 NEXT l IF I THEN CALL - 

198 
1390 FOR L - 1 TO INT (3 * R 
ND (1) + 1) + INT (3 * RND (1 
) + 1) 
1400 IF J THEN GOSUB 1540:X - 

PEEK t - 16336) 
1410 NEXT : IF J THEN CALL - 

198 
1420 H = 1:1 - 1:J - 1: RETURN 
1500 IF D - THEN RETURN 
1505 HOME : TEXT : VTAB 20 :M - 

M + D: PRINT "CREDITO: 3";M 
1510 FOR B - TO 400: NEXT : 
RETURN 
1520 P - P - 1:XX - S0:YY - 90: 

IF P - - 1 THEN P - 15 

1522 FOR G-P-1TOP+1: I 
F G - - 1 THEN CH - Bit 1.5) : GO 
TO 1525 

1523 IF G = 16 THEN CH = R1(0) 
: GOTO 1525 

1524 CH - R1(C) 

1525 GOSUB 1200:YY - YY + 20: 
NEXT : RETURN 

1530 Q - Q - 1:XX ■ 12B:YY ■= 90 
: IF Q » - 1 THEN Cf - 15 

1532 FOR G-Q-1TOQ + 1: I. 
F G - - 1 THEN CH - R2U5) : GO 
TO 1535 

1533 IF G - 16 THEN CH - R2 (Oj 
: GOTO 15 35 

1534 CH - R2 (G) 

1535 GOSUB 1200:YY - YY + 20: 
NEXT : RETURN 

1540 R - R - 1:XX - 174:YY - 90 
: IF R - - 1 THEN R - 15 

1542 FOR G • R - 1 TO B + 1: I 
F G - - 1 THEN CH - R3(15): GO 
TO 1545 

1543 IF G - 16 THEN CH = R3(0) 
: GOTO 1545 

1544 CH - A3CG5 

1545 GOSUB 1200 :YY - YY + 20: 
NEXT : RETURN 

1550 C - 9: IF (Rl(P) " B2(C>) 
AND (R2CQ) " R3(R)) THEN C - Rl 

(P) : RETURN 

1560 IF RKP) - R2(OJ AND CRK 

P) - 6 OR R1(P) - 5) THEN C - 1 

+ RKP) : RETURN 



1570 IF RKP) - 6 THEN C - 8 

15B0 RETURN 

2000 GOSUB 1550 

2 010 IF C - 9 OR C - THEN D 

- WCC): GOSUB 1500: RETURN 

2020 HOME : TEXT : VTAB 20: PR 

INT "PREMIO - $":W(C) 

2030 PRINT "QUER APOSTAR ? 

2050 PRINT *<ESPAC0>"; TAB t 20 

};-APOSTA": PRINT "<RETURN>" ; T 

ABC 20);"RECOLHE PREMIO" 

2055 GET AS: IF A3 < > " " AN 

< > CHRS (13) THEN 2020 
IF A? - CBRS U3) THEN 

:D - WtC): GOSUB 1500: RET 



D AS 

2060 
HOME 
URN 
2070 
) - 



IF INT (2 * RND (1) + 1 
- 2 THEN HOME :D » H(C + 1) : 
GOSUB 1500: RETURN 
20B0 C - C - 1: IF C ■ THEN D 



- 2: 

2090 
2500 



GOSUB 1500: 
GOTO 2020 
IF INT (4 



RETURN 



* RND CI) + 1 



.1 THEN GOSUB 3060 : GOTO 25 



) 

50 

2510 

) < 3 

2530 

EN RETURN 

2550 HOME : 

INT "CREDITO 

2560 H - 1:1 

HOME : 

IF 



IF INT (5 * 

THEN 2560 

GET A$: IF AS < 



RND (I) + 1 



TH 



2565 

2570 



HTAR 10: 

2560 IF 

HTAB 20 : 

2590 IF 

HTAB 30 : 



TEXT : VTAB 20: PR 
- S*;M: GOTO 2530 
- 1:J - 1 
TEXT 
NOT H THEN VTAB 20: 
PRINT "HOLD"; 

NOT I THEN VTAB 20 
PRINT "HOLD"; 

NOT J THEN VTAB 20 
PRINT "HOLD"; 
2595 VTAB 22: HTAB 1: PRINT "V 
OCE PODE PRENDER AS RODAS" ; 
2597 FOR K - 1 TO 4000: NEXT : 
POKE - 16299,0: POKE - 16304 
.0: FOR K - 1 TO 4000: NEXT : P 
OKE - 16300,0: POKE - 16303,0 
2600 GET AS: IF AS - " " THEN 

VTAB 20: PRINT " ": RETURN 
3000 IF AS C "1" OR AS > "4" T 
HEN 2570 

3010 ON VAL IAS) GOTO 3020,30 
30,3040,3050 

3020 H - 1:1 = I: J- 1 : GOTO 25 65 
3030 H - 0: GOTO 2565 
3040 I - 0: GOTO 2565 
3050 J - 0: GOTO 2565 
3060 HOME : TEXT : VTAB 22: PR 
INT "PODE EMPURRAR AS RODAS" : : 
GET AS 
3070 N - INT (5 * RND (1) + 1 

) 

30B0 POKE - 16299.0: POKE - 
16304,0: GET AS: IF (AS < "5" 
R A$ > "9") AND AS < > "0" THE 
N 3060 

3140 IF AS - "0" THEN AS - "10 

m 

3150 ON VAL (AS) " 4 GOTO 316 
0,3170,3180,3190,3200,3210 
3160 P - P + 2: GOSUB 1520:X - 

PEEK ( - 16336): GOTO 3220 
3170Q-Q+2: GOSUB 1530 :X - 

PEEK ( - 16336) : GOTO 3220 



3180 R - R + 2: GOSUB 1540 ;X - 
PEEK ( - 16336) : GOTO 3220 

3190 GOSUB 1520 :X = PEEK ( - 

16336) : GOTO 3220 

3200 GOSUB 1530 :X ' PEEK ( - 

16336) : GOTO 32Z0 

3210 GOSUB 1540 

3220 GOSUB 1550: IF C < 9 THEN 
GOSUB 2010 :N - 0: GOTO 3250 

3230 IF N - I THEN N = 0: GOTO 
3080 

3240 N - N - 1 : GOTO 3080 

3250 RETURN 

A linha 1000 estabeleee que o valor 
do cacife inieial e urn dolar. Ela tambem 
acerta os valores iniciais das variaveis 
que indicam se alguma roda esta presa, 
assim como das variaveis que controlam 
a posicio das rodas. A linha 1010, laco 
principal do programa, chama ordena- 
damente as sub-rotinas que giram as ro- 
das, desenham as frutas na tela e per- 
mit em ao jogador apostar, segurar e em- 
purrar as rodas. 

Se o jogador ficar sem dinheiro, a li- 
nha 1020 terminara o jogo, perrnitindo- 
lhe jogar novamente. 

As linhas 1200 a 1270 usam DRAW 
para desenhar as 1'rutas na tela. As li- 
nhas 1300 a 1420 giram as rodas, cha- 
niando as sub-rotinas das linhas 1520 a 
1540. As linhas 1550 a 1580acusam um 
resultado premiado e a 1 500 soma o pre- 
mio as posses do jogador. 

As linhas 2010 a 2050 permitem que 
o jogador aposte. Este podc entao me- 
Ihorar o premio que recebeu (ou perder 
parte dele). A rotina que segura as ro- 
das se encontra entre as linhas 2530 e 
3050, sendo chamada a partir da linha 
2510. Os indicadores que revelam se as 
rodas podem girar livremente sao mo- 
dificados conforme as teclas apertadas 
pelo jogador. 

As linhas 3060 a 3250 possibilitam ao 
jogador empurrar uma das rodas, 
movendo-a uma posicao para cima ou 
para baixo. O numero de empurroes 
oferecidos e selecionado ao acaso na li- 
nha 2500. A rotina detecta as teclas se- 
lecionadas, movendo as rodas de acor- 
do com cada uma destas. 



Para funcionar no TK-2000, o progra- 
ma precisa de algumas modifica?6es. 

Elimine todos os POKE - 16299,0 e 
POKE - 16304,0. Substitua os coman- 
dos HOMEfTEXT — sempre que apare- 
cerem assim juntos — por GOSUB 5000. 

Acrescente ainda as linhas: 

5000 FOR K = 160 TO 191 

50.10 HC0L0R= 

5020 HPLOT 0.K TO 279, K 

50 30 NEXT : RETURN 



- 



MENSAGENS 
SECRETAS 



P 



Embora sem saber, a maioria das 
pessoas usa codigos para comunicar-se 
em seu dia-a-dia. Assim, quando alguem 
pede um sapato niimero 39 ou fala de 
urn microprocessador Z80, estaempre- 
gando um codigo. Do mesmo modo, um 
cientista nuclear usa equacoes muito 
complicadas, que, na verdade, nao pas- 
sam de c6digos, para simptificar a repre- 
sentacao de fenomenos complexos. Nos 
poderfamos obter os mesmos resultados 
simplesmente descrevendo tais fenome- 
nos por meio de palavras. No entanto, 
isso nos tomaria muito mais tempo. 

Nos exemplos citados, a preocupacao 
maior eonsiste em facilitar a comunica- 
cao e nao em esconder a informagao 
transmitida. Os codigos podem tambem 
ser usados para economizar gastos ou 
espacos de armazenamento. Imagim.'- 
mos, por exemplo, uma companhia que 
realiza muitos contratos ertvolvendo 
ciausulas e paragrafos iguais. Se lodos 
esses detalhes fossem guardados em li- 
tas ou discos, economizariarnos certa- 
mente muito espaco, codificando as par- 
tes que se repetem varias vezes. 

A cieneia que cstuda as mensagens se- 
cretas chama-se criptografia. Seu nome 
e formado a partir de duas palavras gre- 
gas — Kryptos (secreto) e graphos (es- 
crita) — , e refere-se tanto a escrita co- 
dificada quanto a cifrada. Os termos co- 
digo e cifra tern, na realidade, signifi- 
cado ligeiramente diferente no que diz 
respeito ao modo como a rnensagem e 
transmitida. Quando a informacao e co- 
municada letra por letra, dizemos que 
ela esta cifrada. Quando uma ou mais 
palavras sao trans formadas em outro 
grupo de expressoes ou de numeros, por 
intermedio de alguma especie de dicio- 
nario, dizemos que ela esta codificada. 
Na pratica, o termo codificar e usado 
em ambos os casos. 



CODIGOS SECRETOS 



A codificacao e decodificacao de 
mensagens secretas ja foram de uso res- 
trito dos militares, ou pelo menos dos 
Servicos de Inteligencia. Hoje, porem, 
o uso de linhas publicas de telefone e de 
satelites para transmissao de informa- 
coes confidenciais fez aumentar enorme- 



6 de jurtho de 1944: os acordes iniciais 

da Quinta Sinfonia de Beethoven 

dao o sinal para a invasao da Normandia 

pelos aliados, num dos casos 

mais famosos de rnensagem em codigo. 



mente a necessidade dos codigos. 

Uma das primeiras aplica?6es impor- 
tantes dos computadores aconteceu du- 
rante a Segunda Guerra Mundial, quan- 
do equipamentos IBM foram utilizados 
pelos Aliados para decifrar mensagens 
em codigo do inimigo. Desde entao, es- 
pioes e contra-espioes das grandes po- 
tencias tern acompanhado atentameme 
os avan^os tecnologicos nesse campo. 

Atualmente, as possibilidades aber- 
tas pela computacao sao tantas que jo- 
vens pouco escrupulosos — denomina- 
dos hackers — ligam seus micros a re- 
des telefonicas e penetram facilmente 
em sistemas bancarios e instalagoes mi- 
litares, quebrando codigos e akerando 
informacoes. 

Neste e no proximo artigo mostrare- 
mos como empregar o computador pa- 
ra criar mensagens em codigo secreto, 
recorrendo a diversos metodos que, co- 
mo cada tipo de espionagem, tern dife- 
rentes ni'veis de sofisticaeao. 

Mesmo nao sendo um agent e inter- 
nacional, voce pode langar mao desses 
metodos quando quiser enviar mensa- 
gens confidenciais a amigos que tambem 
lenham micros. E aqui vai um desafio, 
Neste artigo esta escondida uma infor- 
macao codificada. Tente encontra-la. 



CODIGOS DE POSICAO 



Os simbolos mostrados nas telas de 
video da pagina 889 parecem nao ter sig- 
nificado algum, mas na realidade sao 
exemplos de codigos de posicao. Como 
o nome sugere, esse e um codigo basea- 
do na posigao de um simbolo em rela- 
cao a um ponto dado. 

Esse tipo de codigo foi usado pela 
primeira vez ha mais de 2000 anos por 
Lisandro, um almirante espartano que, 
durante uma das batalhas da Guerra do 
Peloponeso (travada entre as cidades 
gregas Esparta e Atenas), percebeu que, 
no cinto de um de seus escravos, a dis- 
tancia dos furos aid a fivela continha na 
realidade uma rnensagem secreta. Des- 
de entao, os codigos tornaram-se um 
dos recursos mais poderosos da chama- 
da "arte de guerra". 

Voce pode usar um tipo de codigo de 
posicao simplesmente escrevendo o al- 



fabeto no alto de uma folha e colocan- 
do abaixo dele as distancias recebidas, 
conforme mostram as figuras 1 e 2. Co- 
mo voce tern a letra-chave na primeira 
linha, e facil decifrar a rnensagem. Pa- 
ra dificultar sua decodificacao, basta fa- 
zer uma rotacao nas letras-chave (veja 
a figura 3). Voce pode, por exemplo, co- 
mecar com N e, quando chegar no Z, 
comecar de novo com A. Isto e chama- 
do rotacao ciclica. 

O primeiro programa usa esse meto- 
do para produzir uma versao codifica- 
da de seu texto — entretanto, nao de- 
vem ser deixados espacos em branco en- 
tre as palavras. Se voce quiser realmen- 
te enviar sua rnensagem para alguem, 
vai precisar de uma impressora. 




CtiDIGQS e cifras 
A CRIPTOGRARA 



CODIGOS SECRETOS E 



SUAS APLICACOES 



COMO PRODUZIR SEUS 



FROLIC'S CODIGOS SE C RETOS 

CQPIGOS DE POSI CAO 

C6DIG0 DE JULIO CESAR 



CIFRA SAINT CYR 



CdDIGO MORSE 



2 BORDER 0: PAPER 0: INK 7; 

CLS 

30 PRINT TAB 6;* Codigo de po 

sicao ': PRINT 

40 PRINT INK 2; PAPER 7; 

FLASH 1;AT 6,10;" CUIDADO " 

: PRINT 

50 PRINT "Nao deixe espacoB e 

ntre palavras" 

60 PRINT : PRINT " Eacre 

va em amusculaa" 

70 INPUT "Qual a jnenaagem ?" ' 

mt 

80 FOR l«l TO 400: NEXT i: 
CLS 

90 FOR i-1 TO LEN (aS) 
100 LET b5=aSU> 



110 LET v-CODE (bS)"96 

120 IF v< = 32 THEN PRINT TAB v 

; INK 6;"*": GOTO 150 

130 LET v-v-26 

140 PRINT TAB (v) : INK 6;"*" 

150 NEXT l 



El 



CODIGO DE DISTANCI 



20 CLS 

30 PRINT §6, 

A" 

40 PRINT §140, "CUIDADO" : PRINT 

50 PRINT"NAO DEIXE ESPACOS ENTR 

E PALAVRAS" 

60 PRINT: PRINT 

70 PRINT'QUAL A MENSAGEM ?":INP 

UT AS 

80 FOR 1-1 TO 600: NEXT: CLS 

90 FOR 1=1 TO LEN (AS) 




Codigo de posi^ao com distancia horizontal 





Codigo de posicao com distancia vertical 

100 B$=MID$<A$.I,1) 

110 V-ASC(B$}-45 

120 IF V032 THEN PRINT TAB(V) 

"*":GOT0 150 

130 V-V-26 

140 PRINT TAB(V)"*" 

150 NEXT 



m 



20 CLS 

30 PRINT TAB (10) 

L«ao": PRINT 

40 PRINT TAB (14) 

T 

50 PRINT TAB (4> " 

go entre aa palav 

60 PRINT: PRINT 

70 PRINT"qual a b 

INPUT A$ 

80 FOR 1-1 TO 600 

90 FOR I-) TO LEN 

100 BS=MID$(AS,I, 

110 V=ASC(B$)-45 

120 IF V<-32 THEN 

*" rGOTO 30 

130 V-V-26 



"c6digo de poa 

"cuidado" :PRIN 

nao deixe espa 
raa" 

ua mennagem?" : 

:NEXT I: CLS 

(AS) 
1) 

PRINT TAB(V)" 



H 



140 PRINT TAB(V) "** 
150 NEXT 1 



DEE] 



5 HOME 

10 PRINT TAB( 9)"C0DIG0 DE DI 

STANCIA" ! PRINT 

20 PRINT TAB( 1 4) "CUIDADO" ! P 

RINT 

30 PRINT TAB( 4)"NAO DEIXE ES 

PACO ENTRE AS PALAURAS" 

40 PRINT : PRINT 

SO PRINT "O.UAL A SUA MENSAGEM 

": INPUT AS 
60 FOR T ■= 1 TO 600 : NEXT I : H 
OME 

70 . FOR I = L TO LEW (AS) 
60 BS - MIDS CAS, 1,1) 
90 V - ASC (BS) - 45 
100 IF V < - 32 THEN PRINT 
TAB( V) "*" : GOTO 130 
110 V - V - 26 
120 PRINT TAB( V)"*" 
130 NEXT I 

Inicialmeme, o programs descobre o 
valor ASCII de cada letra de seu texto, 
atraves do comando MIDS no laco que 
vai da linha 90 a linha 150 (130 no Ap- 
ple e no TK-2000). Lima vez que a men- 
sagem ja foi convertida em uma serie de 
numeros, e facil fazer a codificacao por 
meio de uma transformacao linear. No 
caso do MSX, por exemplo, a letra que 
esta na variavel V sera transformada na 
distancia que e o seu valor em ASCII 
menos 26 (linha 130). O comando TAB 
imprimira o asterisco na distancia dese- 
jada, a partir do lado direito da tela (li- 
nha 120), e o processo de codificacao es- 
tara pronto. 



COMO USAR C0DIG0 



Apesar de parecer demasiado simples 
para ser eficiente, o codigo de posicao 
conta com varios fatores a seu favor. 
Em primeiro lugar, antes de decifrar urn 
c6digo, voce deve verificar se ele real- 
mente existe, Isso porque, sendo cons- 
tituida de varios pontos (ou asteriscos) 
dispostos aparentemente de forma alea- 
tbria sobre qualquer superficie, uma 
mensagem assim codificada facilmente 
passaria despercebida. Durante a Segun- 
da Guerra, alias, esse truque foi usado 
por agentes de varios paises. Assim, 
apos uma inspecao mais cuidadosa na 
inocente fotografia de um quintal, 
descobriu-se que as estacas de um varal 
dispunham-se de maneira a formar uma 
mensagem secreta. 

Um modo de fazer com que o codi- 
go de posicao fique mais dificil de ser 
quebrado e reestruturar o programa, 
tornando as letras-chave realmente alea- 
t6rias. Sem essa alteracao, um perito 




Cifra de Saint Cyr 

que saiba estar manipulando um codi- 
go de posicao tera de tentar no maximo 
26 combinacoes antes de resolver o pro- 
blema. Se a ordem das letras for alea- 
toria, o niimero de combinacoes cresce- 
ra extraordinariamente. 



CIFRA DE SAINT CYR 



Na Antiguidade, os maiores cripto- 
grafos depots dos gregos foram os ro- 
manos, Julio Cesar, por exemplo, inven- 
tou um codsgo no qual cada letra era 
substitufda pela lerceira letra que se Ihe 
seguia no alfabeto. Nesse caso, o A 
torna-se D, o B torna-se E, e assim por 
diante. No fim do alfabeto, o X torna- 
se A, oY.BeoZe subslituido pelo C. 
Usando esse metodo, a mensagem Ml- 
NAR CAMPO LADO LESTE cifrada 
scria: PLQDU FDPSR ODCR 
OHVWH. 

Como voce vera mais tarde, o codi- 
go criado por Julio Cesar e um caso es- 
pecial da chamada cifra de Saint Cyr e 
voce 1 podera verificar aquela mensagem 
rodando o proximo programa e usando 
3333333 como numero-chave. 

Com o fim do Imperio Romano, a 
criptografia passou por longo pen'odo 
de estagnacao e, apesar do crescente uso 
de mensagens cifradas nos seeulos XVI 
e XVII, so no seculo XIX a Academia 
Militar Francesa de Saint Cyr produziu 
inovacoes sobre o c6digo de Cesar. A ci- 
fra de Saint Cyr e constituida de uma 
seqiiencia de letras em ordem alfabeti- 
ca, abaixo da qual colocamos um alfa- 
beto, a partir de um ponlo desejado. 
Nesse caso, cada letra do alfabeto de 
baixo tera sua correspondente na linha 
de cima. Assim, como mostra a ilustra- 
cao desta pagina, a palavra INPUT (na 
linha de baixo) seria cifrada como 
AFHML. Uma das vantagens da cifra 
de Saint Cyr e que podernos escolher um 
ponto de partida diferente para cifrar 
cada letra, bastando que o receptor co- 
nheca esses pontos. Isto o torna ainda 
mais dificil de ser decifrado. 



No programa Cifra de Saint Cyr 
incorporou-se a esse c6digo um numero- 
chave, a fim de conferir-lhe maior segu- 
ran^a. Mesmo que consiga ter acesso a 
listagem do programa, nenhum "es- 
ptao" decifrara a mensagem, a menos 
que ele conheca o numero secreto. 



20 BORDER Or PAPER 0: INK 7: 

CLS 

25 POKE 23658,8 

30 PRINT TAB 8 ; "CIFRA DE ST.C 

YR* : PRINT 

40 PRINT INK 2: PAPER 7; 

FLASH 1;AT 6,10;" CUTDADO " 

50 PRINT : PRINT "Nao deixe e 

apacoa entre palavraa" 

60 PRINT : PRINT 

70 PRINT ''" 1 -> codificar" 

80 PRINT " -1 -> decodif icar" 

90 INPUT a 
100 INPUT "Qual a menaagem ?"' 
aS 

110 PAUSE 50: CLS 
I /0 INPUT "Qual o niimero-chave 
? (7 dioitoa) " "nS 
130 PAUSE 50: CLS 
140 FOR k-1 TO LEN aS 
150 LET ]=k-TNT (k/7)*7+l 
160 LET t^CODE (aS (k) } + (3*VAL 
CnSU))) 

170 IF t>90 OR t<65 THEN LET 
t=t- (a*26) 
180 PRINT CHRS (t) ; 
J 90 NEXT k 



D 



20 CLS 

30 PRINT #7, "CIFRA DE ST. CYR" 

40 PRINT §140. "CUIDADO" ; PRINT 

50 PRINT'NAO DEIXE ESPACOS ENTR 

E PALAVRAS" 

60 PRINT: PRINT 

70 PRINT" < 1> PARA CODIFICAR" 

BO PRINT" <-l> PARA DECODIFICAR 

IT 

90 INPUT S 

100 INPUT-QUAL A MENSAGEM* ; AS 

110 FOR K-1 TO 1500:NEXT:CLS 

120 INPUT "QUAL O NUMERO CHAVE < 

7 DIGITOS) ";N$ 

130 FOR K-1 TO 1500:NEXT:CLS 

140 FOR K-1 TO LEN (AS) 

150 L-K-INT{K/7)»7+l 

160 T-ASC[MIDS<AS,K.1))+(S*VAL( 

MIDS(NS,L,1) )) 

170 IF T>90 OR T<65 THEN T-T-(S 

*26) 

180 PRINT CHRS(T) ; 

190 NEXT 



fffi 



20 CLS 

.3 PRINT TAB CIO} 1 ' CIFRA SAINT CY 
R": PRINT 

40 PRINT TAB (14) "CUTDADO" :PRINT 
50 PRINT TAB (2) "NAO DEIXE ESPAC 
ENTRE AS PALAVRAS '' 



60 PHI NT: PRINT 




70 PRINT"DIGTTE I PARA 


CODIFIC 


AR" 






80 PRINT"DIGITE -1 PARA 


DECODI F 


LCAH" 




90 INPUT S 




100 


TNPUr'QUAL SUA MEN!3AGEM" ; A$ 


110 


FOR K=l TO 1500 -NEXT 


K:CLS 


120 


INPUT" introduza o numero ch 


dve 


(7 dfgi r.oa) " ;NS 




130 


FOR K=l TO I 500; NEXT 


K:CLB 


140 


FOR K-l TO t.EN(AS> 




150 


L=K-TNT(K/7) *7+l 




160 


T=ASC <MID$ {AS , K , 1 ) ) + 


(S*VAL { 


M1DS(NS,L,1))) 




170 


IF T>90 OR T<65 THEN 


T-T- (S 


•26) 






1B0 


PRINT CHRSCT) ; 




190 


NEXT 




SDE1 




20 


HOME 




30 


PBINT TAB< 11) "CIFRA SGT . 


CYR 


*: PRINT 




40 


PRINT TAB( 14)"CUTDAD0" : P 


HINT 




50 


PRINT "NAO DEIXE ESPACOS EN 


THE 


AS PALAVRAS" 




60 


PRINT : PRINT 




70 


PRINT "INTRODUZA 1 


PARA C 


ODIFlCAR" 




SO 


PRINT "INTRODUZA -1 


PARA DE 


CODIFICAR" 




90 


INPUT S 




100 


INPUT "QUAL SUA MENSAGEM?" 


;AS 






110 


FOR K - 1 TO 1500: 


NEXT K: 


HOME 




]20 


INPUT "INTRODUZA 


NUMERO 


CHAVE (7 D1GTT0S)";M$ 




130 


FOR K ■ 1 TO 1500: 


NEXT K: 


HOME 




140 


FOR K - 1 TO LEN 


AS) 


150 
1 

160 


I - K - INT (K / 7) 


* 7 + 


T = ASC ( MIDS (AS. 


K.I)) + 


<S 


* UAL ( MTD9 <N3,L, 


J > ) ) 


170 


IF T > 90 OR T < 6f 


THEN T 


- T - (S * 26) 




lfifl 


PRINT CHRS (T) ; 





Cada letra lida do texto do progra- 
ma e, antes, convertida em seu valor AS- 
CII. A funcao VAL acrescenta a esse va- 
lor uma quantidade indicada por um dos 
digitos de seu niimero-chave {linha 160). 
Depois de conferirmos se o resultado es- 
ta na faixa aceitavel (linha 170) a fun- 
cao CHRS apresentara a letra equivalen- 
te a original. 

Consideremos a mensagem TRO- 
PASCAPTURAMPGNTEPEGASUS. 
Rodando o programa com o numero- 
chave 5331401, o texio codificado seria: 
WTJPTATHDSUYRBRSROXEQJJDfTYS. 
Com um indicador variavel S, que po- 
de assumir os valores - 1 ou 1, e possi- 
vel usar o mesmo programa para a de- 
codificacao. 




O numero-chave de sete digitos po- 
dc ser escolhido aleatoriamente. Porem, 
coma 6 necessario que ele esteja semprc 
disponivel, e aconselhavel utilizar algo 
que nos seja familiar, como um nume- 
ro de leleTone. Como ha dez milhoes de 
combinaeoes possiveis para o numero- 
chave, a cifra de Saint Cyt dificilmenie 
pode ser quebrada. Contudo, e possivel 
torna-la ainda mais segura se codificar- 
mos a mensagem duas vezes, isto e, co- 
locando a mensagem ja cifrada outra 
vez no compulador. 

Usando os numeros-chave 8694153 e 
8130337, a sequcncia de codifieacao e 
decodiflcacao seria: 



Texio Ntimero-chave 

PREPARARDESEMBARQUE 
VAIQFUIXM1TJPJGAIVJ 
WD1TFBQYPIWMWRHDUYM 
VAIQFUIXMITJPJGALVJ 
PREPARARDESEMBARQUE 



8694153 
8130337 
8136J31 

8694153 



'8 

3 

8 
| 



CODIGO MORSE 



A seguranca, porem, nao e tudo. Por 
mais indecifravel que seja um codigo, 
ele de nada vale se nao pode ser trans- 
milido rapidamente. 

O imperador frances Napoleao Bo- 
naparte percebcu o problema e tentou 
supera-lo const ruindo por toda a Fran- 
ca torres que se comunicavam por meio 
de sinais de luz. Isso tornou possivel o 
envio de mensagens a grandes distancias 
em pouco tempo. Dessa forma, o Exer- 
cito frances podia manter-se informado 
sobre o movimento das tropas inimigas. 

Entretanto, a inveneao do telegrafo 
e da cifra conhecida como codigo Mor- 
se, na decada de 1830, foram os fatores 
que mais contribui'ram para dinamizar 
as comunicacoes secretas. O inventor 
desse codigo, o none-americano Samuel 
Morse, criou um sisiema de comunica- 
cao no qual pontos e tracos substituiam 
as letras. 

O programa Codigo Morse codifica- 
ra seus textos e decodificara uma serie 
de pontos e tracos. Por exemplo, o fa- 
moso sinal de socorro SOS seria repre- I 



ilium 





Qua) a utilidade dos cddigos? 

Indispensaveis ao mundo dos es- 
pioes, os c6digos sao tambem muito 
empregados nas telecomunicacoes e 
em atividades bancarias que exigem si- 
gilo, Grandes empresas comerciais que 
fazem uso de computadores para con- 
trolar seus estoques recorrem igual- 
mente a esse tipo de linguagem. As- 
sim, cada item estocado e classificado 
com um c6digo. Quando se trata de ar- 
tigos importados, costuma-se utilizar o 
"cddigo de barras", que consiste em 
quadrinhos com faixas verticals pretas 
e brancas. Essas "barras" sao lidas por 
meio de um instrumento 6ptico. Quan- 
do um dos artigos e retirado, o compu- 
tador registfa a operacao e informa a 
respeito do preco da mercadoria. 

Existem tambem terminais de com- 
pras nas praprias lojas, onde o clients 
apenas digita um codigo e a total a pa- 
gar, Instantaneamente, o computador 
transfere essa quant ia da sua conta pa- 
ra a da loja. Como se pode ver, as no- 
tas e moedas tendem a desaparecer, e 
as caixas registradoras deverao ser 
substitufdas por terminais de compu- 
tador. Mas, para tanto, e neeessario 
que sejam crtados cddigos muito efi- 
cientes, de modo a evitar roubos e 
fraudes. 



sentado por /.../—/.../ e um texto maior 
como FUJA A MEIA-NOITE seria 



UM EXERCJCIO OE C0D1FICACA0 



Tente fazer as duas codificacoes men- 
cionadas com o proximo programa,. Pa- 
ra os micros da linha Sinclair, voce de- 
ve adicionar cinco asteriscos no final da 
mensagem para indicar que ela ja esta 
completa. 



F 



10 BORDEB 0: PAPER 0: INK 7 
CLS : DIM aS(26,4): LET S$=' 



" : LET f $**" 

15 POKE 2365B.8 

20 FOR x=l TO 26: BEAD a${x); 
NEXT x 

30 TNPUT "Codificar (1) ou De 

codificar <2>";r 

40 IF r-2 THEN GOTO 140 

60 INPUT "MENSAGEM A SER CODI 

FICADA :"'m$ 

70 FOR x=l TO LEN m$ 

80 IF m$U) = " " THEN PRTNT " 
" ! : GOTO 110 

90 LET p$=mS(x) 
100 PRINT " ";a$((CODE pS)- 
64) ; 

J 1.0 NEXT x 
120 PRINT QUALQUER TECLA 

PARA CONTTNUAH";: PAUSE 9999 
130 RUN 

140 INPUT "MENSAGEM A SER DECO 
DIFICADA :"'mS: LET mS=m$+" " 
160 FOR X=l TO LEN IB$ 
170 LET k$=m$(x) 
180 IF K3-" " THEN GOTO 220 
190 LET a$ = BS+k.$ 
200 NEXT x: GOTO 120 
210 IF LEN 9$>5 OR LEN h$<1 
THEN PRINT "ERBO": GOTO 120 
220 IF LEN a$<>5 THEN LET B$= 
aS+f$( TO 5-LEN 3$) 
225 FOR h=l TO 26: TF aS(h)=a$ 
THEN PRINT CHP.S (h+64) ; 
230 NEXT h 

24 LET aS="": GOTO 200 
250 DATA "0-'\"-000","-0-0" 1 "- 
00 ","0"," 00-0", " — 0","0000" , "0 

0" ,*0 " ,"-0-","0-0 0" ,"--"."- 

0",* ","0 — 0"," — Q-","0-0"," 

000", "-"."00-"," 000- ","0 — "."- 
00-" , "-Q--" , " — 00" 



20 FOR X-l TO 26:READ A$(X):NEX 

T X 

30 PRINT §96. ; :INPUT"CODIFICAR 

OU DECODIFICAR (1,2) ";R 

40 IF R-2 THEN 140 

50 PBINT" MENSAGEM A SER CODIF 

I CADA : " 

60 INPUT MS 

70 FOR X-l TO LEN (MS) 

80 IF MIDS(M$,X.1)=" " THEN PRI 

NT" "J :GOTO 110 

90 P$=MID$(M$,X,1) 

100 PRINT " ";A$(ASC(P$)-64) ; 

110 NEXT 

120 PRINT: PRINT: PRINT " QUALQU 

ER TECLA PARA CONTINUAR" 

130 IF INKEX5-"" THEN 130 ELSE 

RUN 

140 PRINT" MENSAGEM A SER DECOD 

I FICADA" 

150 INPUT M$ :MS-MS+" ":PRINT:PR 

INT 

160 FOR X-l TO LEN (MS) 

170 KS-MIDS<MS,X.1> 

160 IF KS=" " THEN 210 

190 SS-SS+KS 

200 NEXT: PRINT: GOTO 120 

210 IF LEN (SS)>4 OR LEN(SS)<1 

THEN PRINT " " ; : GOTO 200 

220 FOR H-l TO 26; IF AS(H)=SS T 

HEN PRINT CHRS(H+64): 

230 NEXT 

240 SS="":GOTO 200 

250 DATA O-.-OOD. -0-0,-00,0.00- 

0,-0,0000.00.0 , -o-.o-oo. — . 

-0, . — 0,-0-, 0-0, 000, -.00-. 

ooo-,o--,-oo-,-o--,— 00 



m 



10 CLS:DIM AS (26) 



10 CLS :DIM AS(26) 

20 FOB X-l TO 26 :READ A$(X):NE 

XT X 

30 PRINT TABU) ; : INPUT'CODIFICA 




R OU DEC0DIFICAR<1.2)";R 

40 IF fi-2 THEN 140 

50 PRINT TAB (7) "MENSAGEM A SEH 

CODIFICADA" 

60 INPUT KS 

70 FOE X = l TO LEN (M$) 

80 IF MIDS(MS,X.U=" " THEN PRI 

NT" " ; :GOTt> 110 

90 P$=MIDS{MS,X,1) 

100 PRINT" ";AS(ASC(PS)-641 ; 

11.0 NEXT X 

120 PRINT: PRINT: PRINT TABt2)"AP 

ERTE QUALQUER TECLA PARA CONTIM 

UAR" 

130 IF INKEVS="" THEN 130 ELSE 

RUN 

140 PRINT TAB (6) "MENSAGEM A SER 

DECODIFICADA" 
150 INPUT M$:M$=MS+" ":PRINT:PR 
INT 

160 FOR X=l TO LEN(M$) 
170 K$=MTDS (MS,X, 1) 
ISO TF K$=" " THEN GOTO 210 
190 SS=SS+K$ 

200 NEXT X: PRINT: GOTO 120 
210 IF LEN(S$)>4 OR LEN(S3X1 T 
HEN PRINT: PRINT " DETXE ESPA 
CO ENTRE OS CODTGOS" : GOTO 200 
220 FOR H=l TO 26: IF A$ (H) -SS T 
HEN PRINT CHRStH+64) ; 
23 NEXT 

240 S3- "V GOTO 200 
2S0 DATA 0-, -000, -0-0. -00, 0,00- 
0,-0,0000.00,0 — ,-o-.o-oo,--, 
-0, ,0 — O,--O-,0- 0.000.- ,00-. 

ooo- .o--.-oo-.-o — .— 00 



HIE] 



DIM AS (26) 
1 TO 26: READ AS(X) 



10 HOME 
20 FOR X 
: NEXT X 

30 PRINT TAB( 6);: INPUT 
IFICAR OU DECODIFICAR(l,2)? 




Codigo Morse nu Ida 



40 IF R ■ 2 THEN 140 

50 PRINT TAB( 9) "MENSAGEM 

ER CODIFICADA" 

60 INPUT MS 

FOR X - 1 TO 
IF MIDS (MS, 
PRINT " 
PS - MIDS (MS,X, 1) 

PRINT " " ;A$( ASC (P$) 



70 

80 

N 

90 

100 

4) i 

110 

120 



LEN (MS) 
,X.l) ■=■ " " 
i : GOTO 1 J 



A S 



THE 



- 6 



NEXT 
PRINT 



PRINT TAB 



PRINT 

( 3)"APERTE QUALQUER TECLA PARA 
CONTINUAR" 

IF T$ - 



130 
OTO 
135 
140 



INT 
160 
170 
180 



THEN 



'COD 
'rR 



GET T$ 
130 
GOTO 3 

PRINT TAB( 8) "MENSAGEM A 
SER DECODIFICADA" 
150 INPUT MS: MS - MS + " " : PR 
PRINT 
FOR X = 1 TO LEN (M$) 
KS = MID$ (MS.X.l) 
IF KS = " " THEN GOTO 210 
190 SS ■ SS + KS 
200 NEXT X: PRINT : GOTO 120 



210 IF LEN (S$) > 4 OR LEN ( 

SS) < 1 THEN PRINT " ■ i : GOTO 

200 

220 FOR H - 1 TO 26: IF A$(H) 

- SS THEN PRINT CHRS CH + 64) 

230 NEXT 

24 S$ = "": GOTO 200 

250 DATA 0-, -000, -0-0, -00, 0,0 

0-0, --0,0000, 00,0 — ,-o-,o-oo,~ 

-,-0, ,0 — o,--o-,o-o,ooo,-,oo 

-,ooo-,o--,-oo-.-o--.— 

A primeira parte do programa atri- 
bui a cada variavel AS<X) urn sinal Mor- 
se equivalence a uma letra do alfabeto, 
na sua devida ordem (tinha 20). Por 
exemplo, A${1) contera /.-/, que e o c6- 
digo da letra A. Seria interessante usar 
o sinal de menos para um traco, e o as- 
terisco on o zero para um ponto, em vez 
do ponto final. 

A parte de codificacao e muito seme- 
Ihante a dos dois primeiros programas. 
Cada letra de seu texto e lida e conver- 
tida em um ntimero entre 1 e 26 e a se- 
quencia adequada de pontos e tracos e 
entao impressa (linha 100). 

A decodificacao da mensagem se pro- 
cessa do segninie modo. O computador 
le cada caractere e soma-o aos anterio- 
res, ate encontrar um espaco (linhas 160 
a 200). Entao ele compara essa cadeia 
de caracteres com as que estao na varia- 
vel A$, identificando a letra equivalen- 
te e imprimindo-a por meio do coman- 
do CHRS (linha 220). 

Na segunda parte deste artigo, voce 
aprendera a decodificar iransposicoes e 
cifras e utilizar codigos multiplicativos 
e codigos comerciais. 
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DENU 




Como voce ja sabe, o interpretador 
BASIC pode trabalhar com numeros 
fracionarios. Aprenda agora 
a armazena-los na memoria 
e obtenha resuttados mais precisos. 



P 



Quando o resultado de uma operacao 
numerica e muito grande ou, entio, 
muito pequeno, o com put ado r mostra, 
freqiientemente, na tela, urn niimero 
com aparencia meio estranha, tal como 
2.34E12 ou 1.222E-9, 

Essa maneira de representar numeros 
e conhecida como notacao cienttficQ* ou 
notagao de engenharia, e e usada auto- 
maticamente toda vez que o interpreta- 
dor BASIC nao consegue mostrar urn 
valor numerico que caia dentro do limite 
de sete a oito algarismos, dependendo 
da marca do computador. Existem tanv 
bem meios, em BASIC, de mostrar ou 
imprimir os valores numericos que se 
quiser, em notacao cientifica. 

Na notacao cientifica (chamada ain- 
da de forma exponential), um niimero 
e composto por duas partes: a mantissa, 
que contem os algarismos significativos 
do niimero, geralmente com apenas um 
digito a esquerda da virgula; e o expoen- 
te, que eonsiste em uma potencia de 10 
pela qua! a mantissa devera ser mutti- 
plicada para obter o valor numerico a 
ser representado. Assim, por exemplo, 
os numeros aqui abordados significam, 
respectivamente: 

2.34E12 = 2.34 x 10 12 = 
» 2. 340.000.000. 000 

1.223E-9 = 1,223 x 10-» = 
= 0,000000001223 

Na realidade, esta e exatamente a ma- 
neira com que o interpretador BASIC 
armazena todos os valores reais: man- 
tissa e expoente sao conservados em gru- 
pos separados de bytes. So quando o nii- 
mero vai ser mostrado por um PRINT 
ou equivalente e que se processa a con- 
versao para o formato mais conhecido. 
O limite para que isso ocorra varia com 
a marca do computador. Nos micros da 
linha Apple, TRS-Color e TRS-80, por 
exemplo, e de sete algarismos. No Spec- 
trum e no MSX, e de oito algarismos. 
Alguns computadores, como os das li- 
nhas TRS e MSX, podem expressar mi- 
meros com precisao dupla, isto e, nao 
precisam recorrer a forma exponencial 
se o niimero tiver ate quinze digitos de 
precisao. 

Voce tambem podera usar a forma 



exponencial como um modo abreviado 
de entrar numeros longos no computa- 
dor (dentro de um programa, ou mes- 
mo usando um comando INPUT). 

O programa a seguir o ajudara a en- 
tender como funciona essa forma, e co- 
mo o valor da mantissa e calculado. 



10 CLS : POKE 23658, B 

20 INPUT "INTRODUZA NUMERO" 

, LINE AS 

25 IF AS-"" THEN GOTO 20 

30 LET NS-"0": LET E«0: LET N 




EXPOENTES 



COMO SAO ARMAZENADOS 



OS NUMEROS 



PONTQ FLUTUANTE 



A FUNCAO INSTR 



NUMEROS NEGATIVOS 



PEEK NA MEMORIA 



COMO ECONOMIZAR MEMCfllA 



______ EFEITOS ESTRANHQS 

FORMATACAO COM PRINT USING 



-VAL AS 

40 IF N-0 THEN PRINT "VALOR 
MUITO PEQUENO !": PAUSE 50: 
GOTO 10 

50 LET F-0: FOB M-l TO LEN AS 
: IF A3(M)-"E" THEM LET F-M 
55 NEXT M: IF F-0 THEN GOTO 
200 




60 LET N3-STRS N: LET F-0: 
FOR M-l TO LEN NS : IF NS(M)-" 
E" THEN LET F-M 
65 NEXT Mr IF F=0 THEN GOTO 

180 
68 LET NS=N${ TO F-1) 
70 IF AB3 N<1 THEN GOTO 130 
80 IF ABS N<10 THEN GOTO 110 
90 LET N-N/10: LET F-0: FOR M 
•1 TO LEN NS: IF NSCM)-" ." 
THEN LET F=M 

92 NEXT M: IF F-LEN N$ THEN 
LET N3=NS( TO LEN NS-1J: GOTO 

100 
95 IF FOO THEN LET NS-NS < 
TO F-1)+NS(F+1)+" . "+NS tF+2 TO 
) : GOTO 80 
100 LET NS-NS+"0": GOTO 80 
110 IF NSU.EN N$)-"." THEN 
LET NS-NS { TO LEN NS-.l) 
120 GOTO 180 

130 IF ABS N>-1 THEN GOTO 170 
140 LET N=N*10: LET F-0: FOR M 
=1 TO LEN NS: IF NS(M)-"." 
THEN LET F-M 

145 NEXT M: IF F-l THEN LET N 
$=".0"+NS(2 TO ): GOTO 130 
150 IF FOO THEN LET NS-NS ( 
TO F-2)+" . "+NS(F-1 )+N3(F+l TO 
) : GOTO 130 

160 LET NS="."+N$: GOTO 130 
170 IF VAL AS<0 THEN LET N$-" 
-"+NS 
180 PRINT : PRINT AS;" IGUAL": 

PRINT NS 
190 GOTO 20 

200 IF ABS N<1 THEN GOTO 220 
IF ABS N>-10 THEN LET E-E 
LET N-N/]0: GOTO 210 
215 GOTO 230 

220 IF ABS N<-1 THEN LET E-E- 
1: LET N=N*10: GOTO 220 
230 PRINT AS:" IGUAL": PRINT N 
;: IF EOO THEN PRINT "E"sE 
240 PRINT : GOTO 20 



210 
+ 1: 



now 



10 CLS 

20 PRINT: INPUT" INTRODU2A HUME 
RO ";A$ 

30 N$-"0" :E-0rN-VAL(A$) 
40 IF N-0 THEN PRINT "VALOR 
MUITO PEQUENO!" : PRINT :GOTO 20 
50 I-INSTR(AS,"E"> : IF F-0 
THEN 200 

60 NS-STRS(N) :F-INSTR(N5,"E 
"):I F F-0 THEN 180 ELSE N 
S-MIDSCNS, 2.F-2) 
70 IF ABS(N)<1 THEN 130 
IF ABS(NX10 THEN 110 



90 N-N/10 jF-INSTRCNS.' 



■J :IF F- 



LEN(NS) THEN N3-LEFTS (NS . LEN{N3 

)-l) ELSE IF FOO THEN NS-LEFTS 

(NS . F-l ) +MIDS (NS . F+l . 1 ) +" . "-t-MID 

S(N$,F+2) :GOTO 80 

100 NS-NS+"0" .-GOTO 80 

110 IF RIGHTS (NS.l)-"." THEN NS 

-LEFTS (NS, LEN (NS)-l) 

120 GOTO 1B0 

130 IF ABS(N)>-1 THEN 170 

140 N-N*10 :F-INSTR(N3, " - ") :IF F 

-1 THEN NS-".0"+MIDS<NS. 2) :GOTO 

130 
150 IF FOO THEN NS-LEFTS (NS. F- 
2) +" . "+MIDS (NS , F-l , 1) +MIDS (NS , F 
+1} :GOTO 130 
160 NS-",-+NS:GOTO 130 
170 IF VAUASXO THEN NS-"-"+NS 
180 PRINT: PRINT AS;" IGUAL* : PR I 
NT NS 

190 GOTO 20 

200 IF ABS(NX1 THEN 220 
210 IF ABSCN)>-10 THEN E-E+1:N- 
N/10:GOTO 210 ELSE 230 
220 IF ABS(NX-1 THEN E-E-1:N-N 
* 10: GOTO 220 

230 PRINT AS;" IGUAL ": PRINT N; 
CHRS(8);:IF EOO THEN PRINT "E* 
}E 
240 GOTO 20 



ffiE] 



INPUT "ENTRE NUMERO 



'0":E - 0:N ■= VAL 



LEN (AS) ! IF 
*E" THEN 54 
GOTO 200 



10 HOME 
20 PRINT 
. » »^g 

30 LET NS 

(AS) 
40 IF N - THEN PRINT "VALOR 

MUITO PEQUENO" : PRTNT : GOTO 2 

50 FOR F - 1 TO 

MIDS (A3.F.1) - 
52 NEXT F:F - 
54 IF F - THEN 200 
60 LET NS - STRS (N) 
62 FOR F = 1 TO LEN (NS) : IF 

MID$ (NS,F.1> - "E" THEN 66 
64 NEXT F:F =, 
66 IF F = THEN 180 
68 LET NS = MIDS (NS.l.F - 2) 
70 IF ABC (N) < 1 THEN 130 
80 IF ABS (N) < 10 THEN 110 
90 LET N - N / 10 
92 FOR F = 1 TO LEN (MS) : IF 

MIDS (NS.F.l) ■ "." THEN 96 
94 NEXT F:F - 
96 IF F = LEN (NS) THEN NS - 

LEFTS (N$, LEN (N5) - 1): GOTO 

100 
98 IF F < > THEN NS = LEFT 
S (NS,F - 1) + MIDS (NS.F + 1. 
1> + "." + MIDS (NS.F + 2) : GO 



i 



73 PROGRAMACAO BASIC 7j 





TO SO 

100 LET NS - MS + "0" ■ GOTO 80 
110 IF RIGHTS (NS.U = *." TH 
EN NS = LEFT3 <N$, LEN (NS) - 

1) 

120 GOTO 180 

130 IF ABS CN) > =1 THEN 17 



140 LET N = N * 10 

142 FOR F - 1 TO LEN (NS) ! IF 

MIDS (NS.F.l) » "." THEN 146 
]44 NEXT F:F = 
146 IF F - 1 THEN NS = "0.0" + 

MIDS (NS.2) ! GOTO 130 
150 IF F < > THEN NS = LEF 
TS (N$,F - 2) + V" + MIDS (NS 
F - 1,1) * MIDS (NS.F + 1) : G 
OTO 130 
160 LET NS * "." + N$: GOTO 13 



170 IF UAL (AS) < THEN NS * 

"-" + NS 

180 PBINT AS;" I GUM. A ";NS 

190 GOTO 20 

200 IF ABU (N) < 1 THEN 220 

210 IF ABS (N) > = 10 THEN E 

-E+]:N=N/10: GOTO 210 

215 GOTO 230 

220 IF ABS (N) < - 1 THEN E 
=E-1:N=N*J0: GOTO 2 20 

230 PRINT ASi" IGUAL A ":N: 

235 IF E < > THEN PRINT "E 
" : E 

240 PRINT r GOTO 20 

Quando voce executar esse progra- 
ma, com o comando RUN, o computa- 
dor fkara espcrando que um numero se- 
ja digitado, e as leclas < ENTER > ou 
< RETURN > sejam pressionadas. En- 
tre. entao, um numero positive em for- 
ma normal, ou no modo exponenciai. 
O computador imprimira o numero que 
voceentrou na forma oposta. Os micros 
TRS-80, TRS-Color e MSX dispoem de 
um comando (PRINT USING, ja expli- 
cado em um artigo anterior) que da mais 
liberdade ao programador para impri- 
mir numeros de acordo com um detcr- 
minado formate. Isso sera explicado 
mais adiante. 

O programa utiliza a funcao INSTR, 
nas versocs para o TRS-80, TRS-Color 
c MSX. Essa funcao nao existe no Ap- 
ple e no Spectrum, mas pode ser substi- 
tuida por uma pequena rotina sempre 
que for necessario. Ela tern por finali- 
dade localizar o ponto da cadeia que 
contem o numero de entrada, onde esta 



(se estiver) presente a letra E, indicati- 
va de expoente. A expressao INSTR 
(AS, "E") rctorna um valor numertco, 
igual a posieao do E na cadeia de entra- 
da. Esse valor e armazenado em F, e se- 
ra igual a zero, se nao for encontrado. 

Nos computadores que nao possuem 
a funpao INSTR, um laco FOR...NEXT 
percorre, caraciere por caractere, a ca- 
deia de entrada (funcao MIDS, no Ap- 
ple, e TO, no Spectrum), examinando 
se e um E. Se este for encontrado, sua 
posieao estara contida no contador do 
laco (variavel F). 

A logica do programa e um pouco 
complicada, mas voce conseguira 
cniende-la se tomar um exemplo ninnc- 
rico e seguir o processamento manual- 
mente, para ver como funeinna. 



C0M0 CONVERTER 



Se voce quiser encontrar a forma 
"normal" de um numero espresso na 
forma exponenciai, devc multiplicar a 
mantissa por um valor igual a 10 eleva- 
do ao numero situado logo apos a letra 
E (ou seja, o expoente). 

Aparentemente complicado, esse cal- 
culo e na verdade muito simples, Tome 
como exemplo o numero I.23E4. Para 
converte-lo na forma mais comum, mul- 
tiplique a mantissa (1,23) por lOeleva- 
do a 4. Teremos, assim: 

1.23 x 10.000 ■ 12.300 

Voce pode tentar converter varios nu- 
meros como esse, checando os result a- 
dns com o auxilio do programa qu 
apresentado linhas airas. Note que, 
qualquer que seja o valor, a mantissa e 
sempre expressa com um aigarismo all- 
ies do ponto. Portanto, ela varia erttre 
1.0 e 9.999999. 

Os valorcs negativos sao espressos de 
maneira similar. Nesse caso, a mantis- 
sa e um numero negative enquanio o 
expoente pode ser tanto negativo como 
positivo. Alias, um sinal negativo no ex- 
poente tern um significado totalmcnte 
diferente do de um sinal negativo na 
mantissa. Tente voce mesmo testar is* 
so, utilizando nosso programa. 



ARMAZENAMENTO DE NUMEROS 



A notacao exponenciai e igualmente 
titil para nos ajudar a compreender co- 
mo os computadores armazenam nume- 
ros, internamente. 

Quando um comando direto e digi- 
tado e executado — por exemplo. 
PRINT 10 * 10 — . a primeira coisa que 
o interpretador BASIC faz e traduzir os 
numeros entrados para a forma expo- 
nenciai, e usa-los nessa forma para cal- 
cular o resultado, que tambem e arma- 
zenado na forma exponenciai. 

Nem tudo, porem, parece tao sim- 
ples. Como voce ja sabe, os computa- 
dores digitals nao uiilizam a notacao de- 
cimal para armazenar numeros, massim 
a binaria (numeracao de base dois). Pa- 
ra entender de que maneira os numeros 
sao armazenados na memoria RAM, si- 
ga o exemplo abaixo, de conversao do 
numero 10 (em decimal). 

O primeiro passo e converte-lo em bi- 
nario. Isso nos da o numero 

00001010.00000... 

Os primeirosquatro zeros desse niime- 
ro binario poderiam ser eliminados, re- 
sultando no niimero 1010. 00000... 

Como foi visto, um numero decimal 
em forma exponenciai contem uma 
mantissa entre 1.0 e 9.9999... Quando 
um niimero como esse e armazenado em 
binario, a mantissa transforma-se em 
um numero que sempre comeca com . I . 

Isso e possivel porque o tamanho da 
parte exponenciai do numero deicrmi- 
na a posieao do ponto binario (o equi- 
valents binario ao ponto decimal). Co- 
mo ete e automaticamente definido, a 
mantissa nao precisa especificar onde se 
enconira o ponto. Surgem, assim, dois 
problemas: como fazer com que a par- 
te exponenciai do numero indique onde 
devera estar o ponto binario, e como 
converter esse numero de tal maneira 
que ele comece com .1? 



COMO MOVIMENTAR PONTO 



A resposta para ambos os problemas 
e a mesma: tudo o que precisa ser feito 
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e mover o ponto ate que ele I'ique a es- 
querda do primeiro I, e adicionar I ao 
expoenle para cada posicao que o pon- 
to seja deslocado. Por exemplo, para o 
numero 58 (em decimal), ou 1 11010.000 
(em binario), o ponto binario e movido 
gradualmente para a esquerda, ate que 
nao haja mais mimeros a sua esquerda. 
Neste caso, teriamos que move-lo seis 
casas para a esquerda, de modo que o 
expoente resultasse em +6, ea mantis 
sa fosse 0.11101000. 

Na realidade, o expoenle parte de 128 
(por razoes esclareeidas mais adiante); 
portanto, o numero de posicoes deslo- 
cadas deve ser somado a 128, e nao a 
0. No exemplo acima, o expoenle sera 
igual a 1 28 + 6, ou 1 34 (e isio e armaze- 
nado como urn numero binario). 

Recapitulando, o eomputador arma- 
zena a parte exponential de um nume- 
ro em byte, A mantissa e armazenada 
tambem, so queocupa quatro bytes. No 
exemplo acima, os ires bytes restantes 
scriam preenchidos com zeros : 

EXPOENTE 

MANT-I MANT-2 MANT-3 MANT-4 
1 1 101000 00000000 00000000 00000000 

Portanto, qualquer numero real ocu- 
pa exaiamcme cinco bytes. Isso limha 
os tamanhos maximo e minimo que o 
eomputador pode armazenar. O byte 
unico da parte exponencial nos da o va- 
lor maximo de 2 elevado a 127 (nao de 
256, pois o primeiro bit e usado como 
indicador de sinal, para comunicar se o 
expoente e positivo ou negative deixan- 



do apenas sete hits para o valor nume- 
rico do expoenle). 

O valor maximo da mantissa c 
0.11 111..-, quando todos os bits sao 
iguais a 1 . Esse valor esta muito proxi- 
mo do binario 1.00000..., quee 1 tanto 
em binario quanto em decimal. O me- 
nor valor possivel sera, entao. 
0.100000,.., quando todos o.s bits, ex- 
ceto o primeiro, forem iguais a zero 
(lembre-se de que o primeiro bit da man- 
tissa e sempre igual a I , pois o ponto bi- 
nario e movido ate ai). E 0.1 em bina- 
rio e igual a 1/2 ou 0.5, em decimal. 

Multiplieando a mantissa pelo ex- 
poente, voce podera chegar ate os valo- 
res extremos que podem ser armazena- 
dos na memoria, em ponto flutuante. O 
valor maximo e 1.70I41E38, em deci- 
mal, para um micro de oito bits. Voce 
podera utilizar os programas seguintes 
para verificar como e representado este 
numero intemamente. 

Nesse aspecto, o Spectrum difere dos 
demais computadores: ele utiliza seis 
bytes em vez de cinco para armazenar 
mimeros em ponto (luiuanie. Cinco des- 
ses bytes sao identicos aos do exemplo 
citado. O sexto e necessario para indi- 
car ao eomputador se o niimero e de 
ponto flutuante ou nao. Isso e feito 
precedendo-se o grupo de cinco bytes 
com o byte iguai a 14. 



CAS0S ESPECIAIS 



O que foi dito anteriormente nos da 
uma boa ideia de como o eomputador 
armazena mimeros em formato de pon- 
to flutuante. Existent, porem, duas va- 



rianles em relaeao ao processo estuda- 
do, A prjmeira ocorre quando o nume- 
ro inicial e menor do que I . Nesse caso, 
se tentarmos movimentar o ponto bina- 
rio para a esquerda, iremos afasta-lo do 
lugar onde queremos que ele realmente 
esteja. Portanto, devemos move-lo pa- 
ra a direita. Do mesmo modo, a I'im de 
que o numero seja eorretamente repre- 
sentado, diminui-se o expoente de 1 , pa- 
ra cada posicao deslocada (em vez de so- 
mar I ). O expoenle eomeca, como sem- 
pre, a partir do valor 128. 

Muitas vezes, antes de exibir um nii- 
mero binario, o eomputador escrcve, 
acima de cada "coluna" desse numero, 
seu equivalente decimal. Voce ja deve 
ter visto isso antes nos artigos sobre blo- 
cos graficos, mas apenas para o caso dos 
mimeros a esquerda do ponto. O mes- 
mo pode ser feito para os mimeros a di- 
reita do ponto, que I'ormam na realida- 
de sua parte fracionaria. 

Em binario, para aehar o valor deci- 
mal da proxima coluna a esquerda, 
multiplica-se o valor por 2. Trabalhan- 
do da esquerda para a direita, portan- 
to, deve-sc fazer exatamente o contra- 
rio, ou seja, dividir por 2. 

A segunda variant* na representacao 
dos mimeros em ponto flutuante ocor- 
re quando o numero e menor do que ze- 
ro, ou seja, ncgativo. Nesse caso, o eom- 
putador precisa armazenar a sua versao 
interna do sinal de menos em algum lu- 
gar — e isto deve ser feito sem desper- 
dicar espaco de memoria. 

Voce viu antes que, da maneira co- 
mo os mimeros sao armazenados, o pri- 
meiro bit do primeiro byte da mantissa 
tern que ser sempre igual a I . Dando is- 



so como certo, o computador utiliza esse 
bit para indicar o sinal da mantissa: se 
o numero for negative, o bit valera 1; 
se ele for positive, o valor do bit sera, 
entao, 0. 



ONDE ESTA AQUELE NUMERO? 



;N 

30 D-VARPTR(N) 

40 PRINT ! PRINT" EXPOENTE 

EK(D) 

50 PRINT" MANTISSA - " i 

60 FOR G-l TO 4 

70 PRINT, PEEK (D+G) 

80 NEXT 

90 PRINT: GOTO 2 



- ",PE 



A partir dos exemplos acima, ja e \ak\ \(^)\ 
possivel entender como o computador 
armazena os mimeros na mem6ria. O 
numero decimal 58 (1 11010 em binirio) 
e armazenado em cinco bytes sucessivos, 
da maneira como se segue: 



134 104 000 000 000 (em decimal) 

e o numero 10 (decimal) e armazenado 
assim: 

132 032 000 000 000 

Experimente varios exemplos, traba- 
lhando com os valores decimals conti- 
dos nos bytes. Teste as suas respostas 
usando o programa a seguir. Digite 
RUN 100 para entrar outro numero. 

Embora armazenem niimeros na for- 
ma gerai exposta ate" agora, os micros 
compativeis com o Sinclair Spectrum 
contam ainda com outro recurso, Se um 
numero inteiro, compreendido entre 
-65535 e 65535 for usado, o Spectrum 
o armazena de modo diferente, reduzin- 
do-o a seu equivalente binario e guar- 
dando-o em apenas dois bytes (e nao em 
forma exponencial, usando seis bytes). 
Embora possa parecer que isso seja fei- 
to para economizar mem6ria, tal fato 
nao acontece, pois tres bytes sao deixa- 
dos sem uso. 

Por essa razao, quando voce" usar o 
primeiro dos dois programas abaixo, 
nao entre um valor niimerico entre 
-65535 e 65535: o programa ainda fun- 
cionara, mas os resultados nao corres- 
ponderao a explicacao adotada. 



10 BORDER Is PAPER 7: INK 9: 

CLS 

20 INPUT " Introduza um numero 

(nao inteiro)", x 

40 PRINT '"Expoente: : ';PEEn ( 

PEEK 23627+256*"EEK 23628+1} 

50 PRINT ' "Mantissa : " ; : FOB n 

=2 TO 5 

60 PRINT TAB 10; PEEK (PEEK 

23627+?56*PEEK 23626+n) 

70 NEXT n 

80 STOP 



10 HOME 

20 INPUT "ENTRE UM NUMERO :"; X 

30 LET V - PEEK (105) + PEEK 

(106) * 256 
40 PRINT "EXPOENTE:"; PEEK (V 
+ 2) 

50 PRINT "MANTISSA:"! 
60 FOR N - 3 TO 6 
70 PRINT PEEK (V + N) ; " " i 
80 NEXT N 



100 REM SEGUNDO PROGRAMA 

110 BORDER 1: PAPER 7: INK 9: 

CLS : LET r-0 

120 INPUT AT 1,0: "Introduza ex 

poente" , exp 

130 IF exp<0 OS exp>255 THEN 

GOTO 120 

140 PRINT '"Expoente: ";exp: 

POKE PEEK 23627+256*PEEK 23628 

+l,exp 

150 PRINT ' "Mantissa:" i ; FOR n 

-2 TO 5 

160 INPUT AT 1 , 0;"lntroduza ma 

ntiaaa" .nan 

170 IF man<0 OR man>255 THEN 

GOTO 160 

180 PRINT TAB 10; man: POKE 

PEEK 23627+2S6*PEEK 23628+n, 

man 

190 NEXT n 

200 PRINT ' "Resulta: ";r 



DQM 



100 REM SEGUNDO PROGRAMA 

110 CLS 

120 N-1:D-VARPTR(N) 

130 INPUT" INTRODUZA EXPOENTE " 

;E 

140 POKE D, (255 AND E) 

150 PRINT" INTRODUZA MANTISSA " 

160 FOR K-l TO 4 

170 INPUT E 

180 POKE D+K,(255 AND E) 

190 PRINT , i 

200 NEXT 

210 PRINT: PRINT" NUMERO E ";N:P 

RINT 

220 GOTO 130 



DEE] 
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10 CLS 
20 INPUT" 



INTRODUZA UM NUMERO 



110 HOME :R - 1:V - PEEK (105 

} + PEEK (106) * 256 

120 INPUT "ENTRE EXPOENTE: " ;EX 

130 IF EX < OR EX > 255 THEN 
120 



140 POKE V + 2, EX 

150 FOR N - 3 TO 6 

160 INPUT "ENTRE MANTISSA: ";M 

170 IF M < OR M > 255 THEN 1 

60 

180 POKE V + N,M 

190 NEXT N 

200 PRINT -RESULTADO-";B 

O primeiro desses programas permi- 
te que um numero seja digitado pelo 
teclado; em seguida, ele imprime os con- 
teudos decimais dos cinco bytes onde o 
numero esta guardado. 

Seu funcionamento tern a seguinte di- 
namica: inicialmente, e necessario esta- 
belecer uma variavel numeTica, que ar- 
mazenara o numero de entrada. Como 
ela e a primeira variavel a ser definida 
quando o programa e executado, seu 
nome apareceraiogo no comeco de uma 
area especial da memoria (definida e fi- 
xada pelo interpretador BASIC de ca- 
da computador), chamada lista de va- 
riaveis. Essa lista tern informacoes so- 
bre o nome da variavel e o endereco da 
menuSria RAM onde seu conteudo sera 
armazenado. Tal endereco e dividido em 
dois bytes sucessivos. No Apple, por 
exemplo, o endereco do conteudo da 
primeira variavel de um programa en- 
contra-se nos apontadores 105 e 106 (em 
decimal). No Spectrum, os enderecos 
correspondentes sao 23627 e 23628, 
Tanto no Apple quanto no Spectrum, 
o endereco decimal de dezesseis bits e 
calculado pela expressao na linha 40 (30 
no Apple). 

Nos computadores das linhas 
TRS-80, TRS-Color e MSX, o usuario 
nao precisa conhecer a locacao exata do 
apontador da lista de variaveis, pois 
existe uma funcao predefinida do BA- 
SIC chamada VARPTR (abreviatura de 
VARiabie PoinTeR — ou apontador de 
variaveis), que indica o endereco deci- 
mal completo do ponto da memoria on- 
de esta armazenado o conteudo da va- 
riavel nomeada no argumento da fun- 
cao. Veja a linha 30 do programa para 
esses computadores. A variavel D con- 
tera o endereco inicial dos cinco bytes 
que contem o valor armazenado na va- 
riavel N. O primeiro byte contem o ex- 
poente e nos quatro bytes sucessivos es- 
ia a mantissa. 

O segundo programa faz o contrario: 
pede que cinco bytes sejam digitados, e 
imprime o numero que ele representa 
(algumas das respostas poderao apare- 
cer na forma exponencial). 

Seu funcionamento e semelhante ao 
do primeiro programa, ou seja, coman- 
dos PEEK (nas versoes para o Apple e 
Spectrum) ou VARPTR (nas versoes pa- 
ra o TRS e o MSX) sao usados para lo- 
calizar o endereco inicial da primeira va- 
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riavel. Ela e igualada a ou a 1 logo na 
primeira linha do programs, para asse- 
gurar que ficara em primeiro lugar na 
lista de variaveis (esse "truque" so e ne- 
cessario para o Apple e o Spectrum). A 
seguir, o programa pede ao usuario que 
entre os valores do expoente e das par- 
tes da mantissa, Em vez de empreender 
caiculos infindaveis para chegar ao re- 
suitado convertido, o programa coloca 
esses valores nos cineo bytes de arma- 
zenamento da variavel inicial, por meio 
de comandos POKE, e imprime o resul- 
tado, por meio de urn PRINT normal. 



ECONOMIZE MEMORIA 



O computador sempre armazena nii- 
meros em grupos de cinco bytes. Ora, 
isso representa urn grande desperdicio 
de mem6ria, pois nem sempre sao ne- 
cessaries tantos bytes na mantissa. Alem 
disso, os bytes em excesso poderiam ser 
aproveitados em outros lugares. 

De fato, voce pode economizar quan- 
tidades significativas de memoria se evi- 
tar o uso de numeros em BASIC, em- 
bora isso nem sempre seja possivel. 
Existe, entretanto, urn jeito de reduzir 
a quantidade de memoria que cada mi- 
mero requer. Assim, e possivel, em mui- 
tos casos, evitar o emprego de numeros 
em um programa, colocando dentro de 
variaveis os numeros repetidamente uti- 
iizados em varias partes do programa. 
Por exemplo, uma constante que apa- 
rece com freqiiencia , como o numero 
pi (3, 1415...), pode ser colocado na va- 
riavel P. Esse "truque" funciona sem- 
pre, mas nao vale a pena recorrer a ele 
quando o valor numerico e usado ape- 
nas uma ou duas vezes no programa. 

A vantagem de se empregar uma va- 
riavel nesses casos e que o seu nome ocu- 
pa apenas um ou dois bytes de espaco 
no programa, em vez de cinco, se seu 
nome for curto. (A vantagem deixara, 
naturalmente, de existir se a variavel se 
chamar MEDIA, ou coisa parecida). 

Alguns numeros — como 0, 1,2, 10 
etc. — aparecem tantas vezes na maio- 
ria dos programas, que talvez convenha 
coloca-los em variaveis, se vocS tem pro- 
blema de espaco. Esse metodo e espe- 
cialmente litit nos micros Sinclair, que 
usam seis bytes em vez de cinco. 



EFE1T0S ESTRANHOS 



Caiculos realizados por computador 
revelam, as vezes, erros aparentemente 
inexplicaveis; assim, um resultado que 
deveria dar "redondo" — 10.000000, 
por exemplo — , pode aparecer na tela 



sob uma forma levemente modificada 
— como 10. 000001. Conhecidos como 
erros de precisao, esses equivocos sao 
facilmente explicados pela maneira co- 
mo o computador armazena numeros. 
Tente os exemplos seguintes em sua 
maquina. A causa por tras de cada um 
dos erros sera explicada mais adiante: 



Primeiro, tente a linha abaixo: 

PRINT 10.0000000001 

Ao imprimir o resultado, o compu- 
tador omite o 1 final e convene o mi- 
mero que voce digitou em 10, simples- 
mente. Isso pode se tornar um proble- 
ms, quando voce quiser trabalhar com 
maior precisao numerica. Entretanto, e 
possivel reverter esse fato em seu favor, 
quando se deseja entrar numeros entre 
-65535 e 65535 no programa (o que nor- 
malmente nao deve ser feito, pois o 
Spectrum os representa de forma dife- 
rente, como ja foi dito). 

Basta, para isso, entrar o numero inteiro 
em forma fracionaria e colocar um alga- 
rismo pouco significativo no final. Assim, 
entrando o numero 10.0000000001, como 
no exemplo citado, voce "enganara" o mi- 
crocomputador e ele mostrara como 10 e 
armazenado no formato de cinco bytes, 
em vez de no formato especial para nume- 
ros inteiros. 

Agora tente entrar esta linha: 

PRINT INT -65536 

Com ela, sera evidenciado um erro | ff^ 

no interpretador BASIC do Spectrum, 
uma vez que ele nao consegue diferen- 
ciar entre esse valor e -1. 



do no final do numero, decorre do fato 
de que os computadores digitals, pela 
sua propria natureza, trabalham com li- 
mites no grau de precisao. Portanto, 
quando os valores excederem um deter- 
minado numero de decimals, i interpre- 
tador sera obrigado a arredondar o re- 
sultado. 

Quando isso acontece, dependendo 
dos niimeros que estao sendo usados e, 
tambem, do numero de etapas de calcu- 
lo que o computador tera que veneer, os 
resultados finais podem ser completa- 
mente distintos do que se espera. 

Os computadores sao mais do que 
precisos a maior parte das vezes, e esses 
"erros", na realidade, nao tern grande 
influencia. Mas, para aplicacoes mais 
serias, e que exigem grande precisao, co- 
mo programas de contabilidade, de es- 
tatistica etc., as incorrecoes cumutativas 
podem se tornar um grande inconve- 
niente; isso e levado em consideracao 
pelos melhores pacotes de software. 

Por exemplo, usando eonjuntos e 
matrizes, podem-se armazenar numeros 
com mais decimais do que o maximo de 
setea nove permitido pelos computado- 
res descritos no artigo. A vantagem des- 
sa abordagem e que o programador po- 
de desenvolver uma rotina para impri- 
mir os numeros em forma normal, em 
vez da exponencial, como o computa- 
dor faria com valores extremos. Essa e 
uma maneira, tambem, de evitar men- 
sagens deerro, como ''overflow" , "nu- 
mero muito grande" etc. 



F0RMATACA0 DE NUMEROS 



D 

Voce pode testemunhar os estranhos 
efeitos causados nos micros compativeis 
com o TRS-Color, entrando os nume- 
ros abaixo no primeiro programa: 

12345678901 1-4 

e tambem: 

454545454 E-46 

A discrepancia do primeiro numero 
e bastante obvia. No segundo, o ultimo 
digito e mudado pelo computador. 



iilHMHJE] 



Essas imprecisoes nao sao, contudo, 
como muitas pessoas imaginam, erros 
na ROM dos computadores (excecao 
feita ao segundo exemplo para o Spec- 
trum). A razao pela qual o algarismo 1 
aparece ou desaparece, quando coloca- 



Ja explicamos que alguns microcom- 
putadores, como o TRS-80, o TRS-Color 
e o MSX, tern comandos que permitem 
mudar o formato de impressao de niime- 
ros com o PRINT ou o LPRINT. 

hmbora uma tela possa ser formata- 
da muito bem com o auxilio dos coman- 
dos PRINT® (nos TRS) ou LOCATE 
(no MSX), e conveniente recorrer a de- 
claracao USING para formatacao, que 
e sempre usada em conjunio com os co- 
mandos PRINT ou LPRINT. Os ele- 
mentos essenciais dessa declaracao ja fo- 
ram explicados em artigo anterior; as- 
sim, faremos aqui apenas uma nova ex- 
posicao, por intermedio de um progra- 
ma simples de demonstracao fmanceira 
para uma companhia ficticia. 



A DIRETORIA TEM O PR 
ANUNC1AR O BALANCO Pi 



10 CLS 
20 PRINT' 
AZER DE 



RELIMINAJR 



DE 1986 DA 



30 PRINT: PRINT" FABRICA ACME 

DE ARRUELAS 

40 PRINT: PRINT :PRINT"0 MAIOfi FO 

RNECEDOR DO MUNDO DE": PRINT 

50 CS(0)-"MD.345 - AZUIS":CSC1) 

--MD.897 - VERDES":CS(2)-"MD.91 

2 - AMARELAS":CS{3)-"MD.989 - V 

ERMELHAS* 

60 FOR K-0 TO 3 

65 XS-'ARRUELAS "+MID3 (CS £K} , 10 

) 

70 PRINT TAB(16-LEN(X3)/2) ;XS 

80 NEXT 

90 FOR K-l TO 7000: NEXT : CLS 

110 PRINT #12, "JANEIRO" ! PRINT % 

44. _ _ 

120 PRINT: PRINT" PRECO MEDIO CAT 

ACADO)" 

130 AS-" t t" :BS*" * 

"3II.II" 

140 PRINT: PRINTUSING A$iC9(0};: 

PRINTUSING BS; 12. 715265 

150 PRINTUSING AS ;CS tl > i '■ PRINTU 

SING 83:3.7363141 

160 PRINTUSING AS :C$ (2) ;: PRINTU 

SING 83:10.35824221 

170 PRINTUSING AS:C3 (3) i : PRINTU 

SING 83: .5163733 

180 PRINT #416,USINQ"LUCRO TOTA 

L $|#|,|M.||";374241.5353 

Esse programa, tal como esta, fun- 
cionara bera apenas no micro TRS- 
Color. Para adapta-lo para o TRS-80, 
faca as seguintes alteracoes: 

70 PRINT TAB(32-LEN(C${K)) ) :CS( 

K) 

90 FOR K= 1 TO 4000: NEXT: CLS 

110 PRINT 612. "JANEIRO" : PRINT 

§76. " " 

180 PRINT @832,USING"LUCR0 BRU~ 
TO 



S#M.IM.##":374241.53S3 



t/fi 



10 9CREEN1:WIDTH32:CLS 
20 PRINT" A DIRETORIA TEM O PR 
AZER DE ANUNCIAR O BALANCO P 
RELIMINAR DE 1986 DA 

30 PRINT: PRINT" FABRICA ACME 

DE ARRUELAS " 

40 PRINT: PRINT rPRINT'O MAIOH FO 

RNECEDOR DO MUNDO DE": PRINT 

50 CS(0)-*MD.345 - AZUIS":C3C1) 

-"MD.B97 - VERDES":C3(2)-"MD.91 

2 - AMARELAS"rCS(3)-"MD.9B9 - V 

ERMELHAS" 

60 FOR K-0 TO 3 

65 X3-"ARRUELAS "+MID3 (CS CK) , 10 

> 

70 PRINT TAB(16-LEN(X3)/2) i XS 

80 NEXT 

90 FOR K-l TO 7000: NEXT: CLS 

110 PRINT TAB (12) ;" JANEIRO" :PRI 

NT TABU2) ;"----—" 

120 PRINT: PRINT" PRECO MEDIO (AT 

ACADO) " 

130 AS-" / /":BS-" * 

*S*l.lt* 



140 PRINT: PRINTUSING AS;CS(0);: 

PRINTUSING -BS:12. 715265 

150 PRINTUSING AS;CS(1) ; :PRINTU 

SING BS; 3. 7363141 

160 PRINTUSING A3; CS (2) ;: PRINTU 

SING BS;10. 35824221 

170 PRINTUSING AS i CS ( 3) S : PRINTU 

SING BS; .5163733 

180 PRINT e416,USING"LUCR0 TOTA 

L S|#|, ##|.#|";374241. 5353 

As Hnhas 10 a 90 exibem na tela o ti- 
tulo do relat6rio, formatado de manei- 
ra simples com declaracoes PRINT. A 
linha 170 e particularmente interessan- 
te porque mostra como uma serie de 
mensagens pode ser centrada na tela, 
usando-se TAB, que e calculado de acor- 
do com o comprimento da mensagem. 

A secao do programa que vai da li- 
nha 100 a linha 180demonstra as carac- 
teristicas da declaracao do PRINT 
USING. A linha 130 define AS, que po- 
de ser usada para mostrar as primeiras 
seis letras das cadeias alfanumericas de- 
finidas na linha 50. O comprimento da 
cadeia e o numero de espacos entre si- 
nais % (no MSX o sinai usado e a bar- 
ra inversa), mais 2. Assirn, o compri- 
mento do cordao de saida levara em 
conta o espaco ocupado pelos sinais %, 

B$ define o formato da saida nume- 
rica. A funcao principal da formatacao 
numerica e alinhar uma coluna de nii- 
meros, padronizando-os para que te- 
nhara a mesma quant idade de algaris- 
mos antes e depois do ponto, que sejam 
tabulados tomando o ponto como refe- 
renda, e assim por diante. 

O numero de digitos a ser mostrado 
e definido pelo simbolo # . Inserindo- 
se o ponto decimal na cadeia de # 
define-se a sua posicao. Examine a linha 
130 do programa: B$ serve para impri- 
mir niimeros com dois digitos antes do 
ponto e dois digitos depois. 

Alem disso, se o sinal $ for colocado 
a esquerda dos sinais # , ele sera impres- 
so nessa posicao em todas as satdas, e 
sera usado para indicar quantias mone- 
t arias. 

O simbolo **antes dos sinais S e # 
fara com que os espacos em branco a es- 
querda do campo definido para o valor 
numerico seja preenchido automatica- 
mente por asteriscos. Este e um recurso 
usado no preenchimento de cheques. No 
campo de saida definido na linha 1 30 fo- 
ram empregados quatro sinais diferen- 
tes. Outras combinacdes sao possiveis. 

A linha 140 imprimira os seis primei- 
ros caracteres de C$(0), seguidos por oi- 
to espacos e um sinal de $. Note que a 
declaracao USING utiliza a cadeia de 
formatacao armazenada previamente 
em BS. O numero a ser mostrado nesse 
exemplo sera, portanto, arredondado, 



de modo a aparecer apenas com duas ca- 
sas depois do ponto. 

A linha 150 imprimira os seis primei- 
ros caracteres de AS, seguidos de 
*S3.74, pois sobrou um espapo em bran- 
co na formatacao, que sera preenchido 
por um asterisco. A linha 160 e similar 
a linha 140. Finalmente, a linha 170 im- 
primira o numero como *$0.52. 

Se os numeros a imprimir forem mui- 
to grandes, pode-se recorrer a tres tipos 
de formatagao. A mais simples consiste 
na utilizacao de uma cadeia longa de si- 
nais #. Por outro lado, para visua- 
liza-la melhor, podemos empregar vir- 
gulas para separar os digitos em grupos 
de tres (no Brasil usariamos pontos, mas 
os interpretadores BASIC existentes em 
nossas maquinas seguem o padrao nor- 
te-americano), Isso foi feito na linha 180 
do programa. A terceira alternativa e re- 
correr a forma exponencial. Para ver co- 
mo ela funciona, substitua a linha 180 
por: 

180 PRINT SB32,USING"LUCRQ BRU- 
TO $##-#!*"*;" ;37424i. 5353 

Faca a modificacao pertinente no 
programa para o MSX. Os quatro sinais 
de T que aparecem no formato indicam 
o tamanho do campo do expoente. Os 
sinais # sao interpretados, entao, co- 
mo o formato da mantissa. 

A declaracao USING pode ainda ser 
misturada com um PRINT® na mesma 
linha (computadores TRS-80 e TRS- 
Color) e varias USING podem ser colo- 
eadas na mesma linha. Isto da grande 
flexibilidade na programacao de telas. 

Outro caractere de programacao de 
formato usado com a USING e ao qual 
nao nos referimos antes e o ponto de ex- 
clamacao (!). Ele faz com que o progra- 
ma imprtma apenas o primeiro caracte- 
re de uma cadeia alfanumedca. Tente al- 
terar a linha 130 do programa: 

130 AS=" ! " :BS-" 

**sti.#t" 

Alguns programas utilizam a funcao 
VAL seguida de um numero entre aspas, 
em vez de um numero normal. Essa for- 
ma serve, muitas vezes, para economizar 
espago. O computador normalmente re- 
corre a bytes de memoria para armaze- 
nar um numero, o que o leva a desperdi- 
car mem6ria em certas aplica^des criti- 
cas. Assim, se voce 1 puser um numero en- 
tre aspas e usar a funcSo VAL para 
converte-lo em seu valor numerico, po- 
dera armazena-lo como se fosse um cor- 
dao. No caso de numeros curtos (ou se- 
ja, com menos de cinco digitos), esse pro- 
cedimento levara a uma economia de rne- 
mbria: um byte para cada digito, um pa- 
ra cada aspa, e um para a funcao VAL. 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 


_ 


■ d r 


r^l 


f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



IIIIIIIIIIIHNO PR6XIMO NUMEROmilllllll 



PROGRAMACAO BASIC 

Manchetes e letreiros. Como ampliar os caracteres da ROM. 
Montagem de letras garrafais com blocos graficos. 

PROGRAMACAO DE JOGOS 

Prossiga o jogo A Raposa e os Gansos, montando o programs e 
digitando as suas primeiras rotinas. 

PERIFERICOS 

As dificuldades que podem surgir quando se utiliza um 
acionador de disquetes e como evita-las. 
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^QUUMT 


PROGRAM 


SSU-" 001 * 
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